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Der Clan der Eingeweihten 


Nun gibt es schon seit Jahren ATARI-Computer. Ebenso gibt es 
seit Jahren verblüffende Programme mit hinreißender Grafik. 
Wer im treuen Glauben an die Bedienungsanleitung die Möglich- 
keiten des ATARI zu nutzen suchte, konnte bislang nur mit 
staunenden Augen die Leistungen fremder Software bestaunen. 


"Das schaffe ich nie", werden Sie gesagt haben. Irrtum. Hoch- 
auflösende Grafik, Bilder, die wie im Spielfilm vor den Augen 
vorbeirollen, oder das Wechseln von Bildschirmseiten mit einem 
"flash" - alles ist programmierbar. Sogar in BASIC. Mit diesem 
Buch wird Ihnen der Leitfaden zum vollen Ausschöpfen der 
ATARI-Leistungen in die Hände gegeben. (Da nimmt aber einer 
den Mund voll.) Stimmt nicht. Denn Player-Missile-Grafik und 
die weiterentwickelten Grafikfunktionen wie endloses Bildrol- 
len oder blitzschneller Bildschirmwechsel wurden bislang noch 
nie so konsequent behandelt wie in diesem Buch. Man konnte den 
Eindruck gewinnen, daß die befähigten Programmierer die Ge- 
heimnisse ihrer Supersoftware hüten wie den Gral. (Ist doch 
klar: Hardmoney for Software.) Na schön. Aber inzwischen hat 
sich herumgesprochen, daß die Computerbesitzer selbst Program- 
me schreiben wollen; und zwar solche, die über das Niveau von 
PRINT "ICH BIN DEIN COMPUTER" hinausgehen. 


Gefragt sind Anwenderprogramme, Utilities und hochkarätige 
Spiele. In den meisten Programmen läßt sich Player-Missile- 
Grafik vorteilhaft verwenden. Man kann sie z.B. als Cursor 
programmieren, der unabhängig vom übrigen Bildschirminhalt ar- 
beitet. Dadurch entfällt das Löschen und Wiederauffüllen von 
Bildschirmpunkten, wie es bei einem gePRINTeten Cursor not- 
wendig ist. Für Spiele lassen sich feinstrukturierte Figuren 
(Player) und Geschosse (Missilies) definieren und in jeweils 
verschiedenen Farben und Größen (normal-, zweifach- und vier- 
fach breit) auf dem Bildschirm darstellen. Und da sich Player 
und Missiles über die gesamte Höhe des Bildschirms erstrecken 
können, ist auch ein Einsatz für verschiedenfarbige Balken- 
diagramme möglich. 


(Und das soll alles in diesem Buch stehen?) Na klar. Im ersten 


Abschnitt finden Sie eine allgemeine Einführung in die Pro- 
grammierung von Player-Missile-Grafik mit ersten Entwürfen, 
Bewegungen und der gesamten Kollisionsproblematik. Der zweite 
Abschnitt zeigt dann praktische Anwendungen: Player im Einsatz 
als "Maus", blitzschneller Bildschirmwechsel (Page-Flipping) 
und ein Beispiel für ein Computerspiel mit Supergrafik. Im 
dritten Abschnitt finden Sie schließlich Utility-Programme, 
die zum einen die Programmierung von Player-Missile-Grafik er- 
leichtern und zum anderen ein bequemes Auswählen der Farb- 
kombinationen für ein Programm ermöglichen. Die ATARI-Computer 
stellen immerhin 256 Farben zur Verfügung. (Da kann man ja 
wirklich neugierig werden.) Worauf warten Sie noch? Blättern 
Sie schnell weiter, bevor es ein anderer liest! 


I. Kapitel 


Einführung in die 
Player-Missile-Grafik 


1 Die Register 


Wie programmiert man Player-Missile-Grafik? - Da stellen wir 
uns erst einmal ganz dumm und sagen: Player-Missile-Grafik 
programmiert man durch Umsetzung aller relevanten Daten zur 
hardwaremäßigen Prozeßsteuerung. Hierzu zählt die Reservierung 
von Speicherplatz für die sog. Player-Missile-Tabelle, Festle- 
gung der Form der Player, Aktivierung der DMA (Direct Memory 
Access), Bestimmung der Farbe und Breite von Playern und Mis- 
siles, Abfragen der Kollisionsregister und Festlegung der 
Prioritäten zwischen den einzelnen Playern, Missiles und den 
Hintergrundfarben. 


Und für alles gibt es Register. (Hätte man sich schon denken 
können.) Da dieser erste Abschnitt sich mit diesen Registern 
beschäftigt, mag Ihnen das Thema Player-Missile-Grafik zu- 
nächst wie Trockenfutter vorkommen. Es ist jedoch sinnvoller, 
die Theorie der komplexen Materie "in einem Rutsch" abzuhan- 
deln, damit Sie bei Ihren eigenen Arbeiten rasch die notwen- 
digen Informationen wiederfinden. 


1.1 Allgemeine PM-Register 


Zur Darstellung der Player-Missile-Grafik stehen zwei Auf- 
lösungen zur Verfügung. Dies bezieht sich jedoch nur auf die 
Höhe. Bei der zweizeiligen Darstellung beansprucht der Rechner 
1024 Byte für die gesamte Player-Missile-Tabelle (vier Player, 
vier Missiles); bei einzeiliger Darstellung 2048 Byte. Jeder 
Player und jedes Missile kann insgesamt 256 Bildschirmzeilen 
hoch sein. Bei einzeiliger Auflösung wird jede einzelne Zeile 
in der PM-Tabelle definiert und auf dem Bildschirm darge- 
stellt; bei zweizeiliger Auflösung werden nur 128 Zeilen 
(Byte) definiert und auf dem Bildschirm doppelt hoch dar- 
gestellt. Folgende Skizze verdeutlicht, was gemeint ist: 


Bitmuster 
im Rechner Bildschirmdarstellung 





zweizeilige einzeilige 
Auflösung Auflösung 
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1.1.1 Bildschirmdarstellung (559) 


Über die Adresse 559 wird der direkte Speicherzugriff auf den 
sog. ANTIC-Chip gesteuert. Dieser Chip verwaltet die gesamte 
Bildschirmdarstellung sowohl für die Grafikbetriebsarten O bis 
15 als auch für die Player-Missile-Grafik. Der Normalwert 
(beim Einschalten) ist 34. Durch POKE 559,0 können Sie den 
Bildschirm abschalten. Der Rechner arbeitet dann ca. 30% 
schneller. Das ist sinnvoll, wenn Sie z.B. größere Mengen Da- 
ten einlesen oder umfangreiche Rechenoperationen durchführen, 
zu denen keine Bildschirmdarstellung erforderlich ist. 


Die Adresse 559 hat für die Player-Missile-Grafik eine Ba- 
sisbedeutung. Hier wird bestimmt, ob und mit welcher Auflösung 
die Player und Missiles dargestellt werden. Wenn in 559 der 
Ursprungswert 34 vorliegt, bleiben sämtliche Angaben in den 
übrigen PM-Registern wirkungslos. 


Speicherstelle 559 


DMA Befehlsaktivierung 
Einzeilige PM-Grafik 
Player-Darstellung 
Missile-Darstellung 
Normales Bildschirmfenster 
Schmales Bildschirmfenster 


Befehlscodex Speicherstelle 559 
sl 38 


B 
5,1, Missiles, 
2 zweizeilige Auflösung 
5 Missiles, 
2 einzeilige Auflösung 




















SOSOH-DPDOo PINS 



















Fortsetzung nächste Seite 


12 


Player, 
zweizeilige Auflösung 


Player, 
einzeilige Auflösung 













Player und Missiles, 
einzeilige Auflösung 


DC Breites Bildschirmfenster 





Normales Bildschirmfenster 
Schmales Bildschirmfenster 


1.1.2 Basisadresse PM-Tabelle (54279) 


Die Daten für die Form der Player und Missiles müssen in einem 
sicheren RAM-Bereich gespeichert werden. Hierzu wird je nach 
Auflösung 1K-Byte oder 2K-Byte vom RAMTOP (Adresse 106) aus 
reserviert; also von der obersten Adresse des verfügbaren 
RAM-Bereichs. Da die Speicherstelle 106 jeweils das High-Byte 
des RAMTOP enthält, wird der betreffende Dezimalwert mit 256 
multipliziert. Soll nun 1K-Byte reserviert werden (zweizeilige 
Auflösung), lautet die Anweisung POKE 106,PEEK(106)-4. Man 
spricht hierbei auch von "Seiten" (4 Seiten a 256 Byte = 1024 
Byte). Bei einzeiliger Auflösung lautet die Anweisung POKE 
106 ‚PEEK(106)-8. 


Der Dezimalwert, der sich nun in 106 befindet, muß als Start- 
adresse in 54279 gePOKEt werden; also POKE 54279,PEEK(106). 
Auch bei der Darstellung von nur einem Player muß eine gesamte 
PM-Tabelle reserviert werden. 


Auf der folgenden Seite finden Sie eine grafische Darstellung 
der Player-Missile-Tabelle für zwei- und einzeilige Auflösung. 
Die Missiles nehmen jeweils zwei Bit ein. Jedes Byte ist 
dadurch aufgeteilt in Missile 3, Missile 2, Missile 1 und 
Missile 0. | 
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PMT-Basis PMT-Basis 
zweizeilig einzeilig 
Bit 
65432] 

+ 384 

Missile 

+ 512 

Player 0 

+ 640 

Player 1 

+ 768 + 768 

Player 2 Missile 

+ 896 

Player 3 
+ 1024 
Player 0 
+ 1280 
Player 1 
+ 1536 
Player 2 
+ 1792 
Player 3 





+ 2048 PMT-Ende 


1.1.3 PM-Kontrollregister (53277) 


Zusätzlich zum Register 559, mit dem die Player-Missile-Dar- 
stellung gewissermaßen "grundsätzlich" ermöglicht wird, können 
über das Grafikkontrollregister 53277 im Programmablauf Player 
und Missiles sichtbar werden oder mit einem Schlag ver- 
schwinden. Wenn Sie hier stattdessen versuchten sollten, den 
Normalwert 34 in 559 einzuPOKEn, um die PM-Grafik auszu- 
schalten, wird es zu flimmernder Streifenbildung auf dem Bild- 
schirm kommen. Es ist daher besser, immer nur das PM-Kon- 
trollregister anzusprechen. 


Speicherstelle 53277 


Bit de Darstellung 


Player 
Missiles 
Player und Missiles 





1.1.4 Breite der Player (53256/57/58/59) 

Neben der normalen Breite von acht Bildschirmspalten (entspr. 

GRAPHICS 8) können Sie jeden Player auch in doppelter oder 

vierfacher Breite darstellen lassen. Ähnlich wie in der 

Zweizeilen-Auflösung nehmen dabei die einzelnen Bits zwei oder 


vier Spalten des Bildschirms ein. Die Register 53256/57/58/59 
sind dabei den Playern O0 bis 3 zuzuordnen. 


DPI Tosmerte runs 


Fortsetzung nächste Seite 
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Befehlscodex Speicherstelle 53256/57/58/59 


Bit az Darstellung 


normale Breite 
normale Breite 
doppelte Breite 
vierfache Breite 





1.1.5 Breite der Missiles (53260) 


Wie Sie schon aus der Player-Missile-Tabelle ersehen können, 
ist jedes Missile nur zwei Bit breit. Sie haben jedoch auch 
hier die Möglichkeit, doppelte oder vierfache Breite einzu- 


schalten. 


Speicherstelle 53260 


Bit de Bedeutung 


Missile 
Missile 
Missile 
Missile 
Missile 
Missile 
Missile 
Missile 


O-Dw@prQOON NS 





55 


Fortsetzung nächste Seite 
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Befehlscodex Speicherstelle 53260 
Bedeutung | 


alle 2 alle Missiles 
vierfach breit 

Missile 3 

vierfach breit 


normal breit 
doppelt breit 
normal breit 
doppelt breit 
normal breit 
doppelt breit 
normal breit 
doppelt breit 








Missile 2 
vierfach breit 
Missile 1 
vierfach breit 
Missile O 
vierfach breit 
alle Missiles 
doppelt breit 


1.2 Positionsregister 







Anders als das Männlein im Walde stehen die Player nicht still 
und stumm auf dem Bildschirm herum. Sie lassen sich in alle 
Richtungen bewegen, wobei horizontal und vertikal 256 Positio- 
nen eingenommen werden können. Allerdings liegen je nach 
Fernsehgerät bzw. Monitor nur die Werte von ca. 40 bis 210 
(horizontal) und ca. 10 bis 115 (vertikal) im sichtbaren Bild- 
Schirmbereich. Wenn Sie einen Player z.B. in die Horizontal- 
position O0 "schicken", verschwindet er vom Bildschirm. 


1.2.1 Horizontale Position der Player 


Register Zuordnung 


Player 0 


Player 1 
Player 2 
Player 3 
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1.2.2 Horizontale Position der Missiles 


Missile O 


Missile 1 
Missile 2 
Missile 3 





1.2.3 Vertikalposition (53276) 


Im Gegensatz zur horizontalen Positionsveränderung, bei der 
einfach der gewünschte Dezimalwert in das betreffende Register 
gePOKEt werden muß, lassen sich die Player und Missiles ver- 
tikal nur verschieben, indem das Bitmuster des entsprechenden 
Players oder Missiles neu eingelesen wird. Näheres erfahren 
Sie im Abschnitt 1.6.2 (Bewegung). 


Ein anderes Problem ergibt sich bei Anwendung der Zweizeilen- 
Auflösung: Da auch die vertikale Bewegung zweizeilenweise 
vollzogen wird, entstehen ungleichmäßige Bewegungsabläufe. Mit 
Hilfe des Registers 53276 können die PM-Objekte jedoch wieder 
um eine Bildschirmzeile nach oben oder unten rückversetzt wer- 


den. 
Speicherstelle 53276 
sr Tee T zer 


Player 3 
Player 2 
Player 1 
Player 0 
Missile 3 
Missile 2 
Missile 1 
Missile O 











SH DO PN SI 
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1.3 Die Farbregister (704/5/6/7) 

Zur Bestimmung der Farbe stehen vier Register zur Verfügung 
(Player+Missile 0 bis 3). Die Farbe eines Players und des 
entsprechenden Missiles ist dabei identisch. Genau wie in den 


anderen Grafikbetriebsarten lassen sich 16 Farben in je 8 ver- 
schiedenen Helligkeitsstufen bestimmen. 


Speicherstelle 704/5/6/7 
Ooie Terz Tocdenmıng 


Blau II 

Rosa 

Orange 

Gold 

Helligkeiten 

Helligkeit (nur GRAPHICS 9) 


Befehlscodex Speicherstelle 704/5/6/7 
Darstellung 


Hellorange 


Te em — 





















Fortsetzung nächste Seite 
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1.4 Die Kollisionsregister 


Durch die gleichzeitige Darstellung mehrerer Player und Missi- 
les und die möglichen Bewegungen der einzelnen Objekte kann es 
zu Berührungen kommen. Oft ist es sinnvoll, diese Kollisionen 
zu registrieren (z.B. in Spielprogrammen) und in entsprechende 
Unterprogramme zu springen. 


Es gibt vier Arten von Kollisionen: 1) Missile/ Hintergrund, 
2) Player/Hintergrund, 3) Missile/Player, 4) Player/Player. 
Für jede dieser Kollisionsarten gibt es wiederum vier Mög- 
lichkeiten; z.B. Missile O/Hintergrund O0 (entspr. SETCOLOR 0), 
Missile O/Hintergrund 1 (entspr. SETCOLOR 1), Missile 1/Player 
0, Missile 1/Player 1 usw. 


Insgesamt werden daher sechzehn Kollisionsregister benötigt, 
in denen jeweils die vier niederwertigen Bits die verschie- 
denen Kollisionen registrieren (Adressen 53248 bis 53263). Da 
es sich dabei um die gleichen Register handelt, in denen auch 
die horizontalen Positionen der Player und Missiles sowie die 
Breite der Objekte festgelegt werden, dürfen die Kollisionen 
nur gePEEKt und nicht etwa durch POKE simuliert werden. 


Register Kollisionsart 
53248 Missile O/Hintergrund 


Fortsetzung nächste Seite 
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Missile 1/Hintergrund 
Missile 2/Hintergrund 
Missile 3/Hintergrund 






Player O/Hintergrund 
Player 1/Hintergrund 
Player 2/Hintergrund 
Player 3/Hintergrund 


Missile O/Player 
Missile 1/Player 
Missile 2/Player 
Missile 3/Player 






Player D/Player 
Player 1/Player 
Player 2/Player 
Player 3/Player 


Bitschaltung der Kollisionsregister (Hintergrund) 


Kollisionsart (Objekt mit...) 


SETCOLOR 3 
SETCOLOR 2 
SETCOLOR 1 
SETCOLOR O0 
keine Kollision 


Bitschaltung der Kollisionsregister (Player) 


Kollisionsart (Objekt mit...) 


Player 3 
Player 2 
Player 1 
Player 0 
keine Kollision 





Besonders wichtig ist zusätzlich das Register 53278. Mit die- 
ser Speicherstelle werden alle Kollisionsregister gelöscht: 
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Sobald sich zwei PM-Objekte berühren, nehmen die 0.9. Register 
einen entsprechenden Wert an. Dieser Wert verändert sich je- 
doch nicht bei erneuter Kollision. Erst wenn in Speicherstelle 
53278 irgendein Wert hineingePOKEt wird (z.B. 0,1 oder 255), 
können neue Kollisionen registriert werden. 


1.5 Das Prioritätsregister (623) 


Vielleicht haben Sie bei einigen Spielprogrammen schon beob- 
achtet, daß bestimmte PM-Objekte während ihrer Bewegung über 
andere Bildschirmgrafiken hinweggleiten oder dahinter ver- 
schwinden. Mit dem Register 623 können Sie die Prioritäten der 
Player, Missiles und Farbregister des Bildschirms (SETCOLOR O 
bis 3) sehr differenziert programmieren. Es ist z.B. möglich, 
daß Player 0 Priorität vor Player 1 hat, während die Grafik 
aus Farbregister 1 (SETCOLOR .0) Priorität vor Player 2 hat. 
Wenn Sie mit dieser Vorgabe z.B. ein Labyrinth auf den Bild- 
schirm zeichnen und die Player zufällig bewegen lassen, glei- 
tet Player 2 hinter der Labyrinthwand hinweg, während Player 0 
und 1 vor ihr vorübergleiten. Wenn hingegen Player O0 und 1 
kollidieren, so erscheint Player 0 im Vordergrund und Player 1 
dahinter. 


Das bringt sehr reizvolle Effekte in ein Programm. Für die Be- 
stimmung der Prioritäten stehen die vier niederwertigen Bits 
des Registers 623 zur Verfügung. Die Rangordnung gilt immer 
für die Player und die zugeordneten Missiles. Sie dürfen 
jedoch nicht alle Prioritäten gleichzeitig aktivieren, da 
sonst die Objekte bei Berührung lediglich schwarz erscheinen. 
Mit Bit 4 erreichen Sie, daß sich die vier Missiles zu einem 
fünften Player zusammenschließen (zuständiges Farbregister ist 
712). Bit 5 bewirkt bei Kollision von Player 0 und 1 sowie von 
Player 2 und 3 keine Prioritätsordnung, sondern eine Über- 
deckung der betreffenden Farbwerte, so daß Ihnen z.B. ein 
zweifarbiges Männlein zur Verfügung steht. 


Speicherstelle 623 


Farbüberdeckung 
Player 0 und 1 sowie 
Player 2 und 3 





Fortsetzung nächste Seite 
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Zusammenschluß von 
Missiles 0,1,2,3 zu Player 4 


SETCOLOR O0 vor: 

SETCOLOR 1,2,3 und Player 0,1,2,3 
SETCOLOR 1 vor: 

SETCOLOR 2,3 und Player 0,1,2,3 
Player 0 vor: 

Player 1,2,3 und SETCOLOR 2,3 
Player 1 vor: 

Player 2,3 und SETCOLOR 2,3 
Player 2 vor 

Player 3 und SETCOLOR 2,3 
Player 3 vor: 

SETCOLOR 2,3 

SETCOLOR 2 vor: 

SETCOLOR 3 





























SETCOLOR O vor: 
SETCOLOR 1,2,3 und Player 0,1,2,3 
SETCOLOR 1 vor: 

SETCOLOR 2,3 

und Player v, 1,2,3 

USW. 

















Player O vor: 
Player 1,2,3 und SETCOLOR 0,1,2,3 
Player 1 vor: 

Player 2,3 und SETCOLOR 0,1,2,3 
SETCOLOR O vor: 

SETCOLOR 1,2,3 und Player ..2,3 
SETCOLOR 1 vor: 

SETCOLOR 2,3 und Player 2,3 
SETCOLOR 3 vor: 

Player 2,3 

Player 2 vor: 

Player 3 












Player 0 vor: Ä 

Player 1,2,3 und SETCOLOR 0,1,2,3 
Player 1 vor: 

Player 2,3 und SETCOLOR 0,1,2,3 
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1.6 Player-Missile Demonstrationen 


Nachdem Sie nun alle Register zur Darstellung von Player-Mis- 
sile-Grafik kennengelernt haben, können Sie sich an die prak- 
tische Programmierarbeit heranmachen. Nachfolgend finden Sie 
einige Beispiele für ein- und zweizeilige Auflösung, horizon- 
tale und vertikale Bewegung, Kollisionen und Prioritäts- 
demonstrationen. Sie können mit diesen Beispiel-Listings nach 
Herzenslust herumexperimentieren, eigene Figuren entwerfen 
oder die Prioritäten anders verteilen. 


1.6.1 Der erste Entwurf 


Jeder Player ist 8 Bit breit. Für die Höhe stehen bei zwei- 
zeiliger Auflösung 128 Linien (=128 Byte) und bei einzeiliger 
Auflösung 256 Linien (=256 Byte) zur Verfügung. In der Praxis 
werden Sie diese Höhe wohl nie nutzen; meistens sind PM-Objek- 
te 8 bis 40 Zeilen hoch. Das auf der folgenden Seite abgebil- 
dete Männlein beansprucht z.B. 12 Zeilen. 





Um diesen Entwurf als Player auf dem Bildschirm erscheinen zu 
lassen, ist folgendes Programm erforderlich: 


@ REM FM-DEMO 1 - ZWEIZEILIG 
18 POKE 196,PEEK(196) -4 

28 GRAPHICS 5:7? "MOMENT BITTE" 
sa POKE S54279,PEEK(196) 

408 VERTIKAL=S58:HORIZONTAL=188 
5@ PMTABELLE=PEEK (186) #256 

68 FOR LOESCHEN=PMTABELLE TO PMTABELLE+1924 
78 POKE LOESCHEN,® 

88 NEXT LOESCHEN 

9B FPLAYERB=PMTABELLE+S512 

188 FOR BYTE=B TO 11 

118 READ DATEN 
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120 POKE PLAYERB+BYTE+VERTIKAL „DATEN 

130 NEXT BYTE | 

140 POKE 559,42 

150 POKE 53277,2 

16@ FOKE 784,255:REM HELLORANGE 

170 POKE 53248,HORIZONTAL 

188 ? CHR$(125) 

198 GOTO 198 

2BB DATA 56,56,16,124,254,187,185,169,40,40,40,128 


10: Vom RAMTOP aus werden vier "Seiten" (*256 Byte = 1024 
Byte) für die Player-Missile-Tabelle reserviert. 

20: Erst nach dieser Reservierung wird die gewünschte Grafik- 
betriebsart programmiert. 

30: In Register 54279 wird der Anfang der PM-Tabelle einge- 
geben. 

40: Die vertikale und horizontale Position für das Männlein. 
50: Um die tatsächliche Anfangsadresse der PM-Tabelle zu er- 
mitteln, wird der Wert aus Register 106 mit 256 multipliziert. 
60 bis 80: Es kann vorkommen, daß sich irgendwelche Dezimal- 
werte in den Adressen der Tabelle befinden. Zu Programmbeginn 
werden daher alle Speicherstellen auf Null gesetzt. 

90: Wie Sie aus der Player-Missile-Tabelle (Abschnitt 1.1.2) 
ersehen können, beginnen die Speicherstellen für Player 0 (in 
diesem Fall das Männlein) bei 512. 

100 bis 130: Die zwölf Dezimalwerte für das Bitmuster des 
Männleins werden gelesen und in die PM-Tabelle eingetragen.. 
Das hier gezeigte Prinzip gilt für alle Player und Missiles. 
140: Der Bildschirm wird für die Darstellung der PM-Grafik 
vorbereitet (vergl. Abschnitt 1.1.1). 

150: Ebenso wird das PM-Kontrollregister für die Bildschirm- 
darstellung vorbereitet (vergl. Abschnitt 1.1.3). 

160: Die Farbe des Players wird festgelegt. 

170: Mit dem Register 53248 läßt sich die horizontale Position 
von Player 0 festlegen. Sie können übrigens die Zeilen 140 bis 
170 auch gleich hinter den GRAPHICS-Befehl legen. Das Programm 
funktioniert dann ebenfalls. 


Starten Sie mit RUN (RETURN). Nach etwa zehn Sekunden 
erscheint die Figur auf dem Bildschirm. Unterbrechen Sie (wenn 
Sie sich "satt" gesehen haben) mit BREAK und geben Sie ohne 
Zeilennummern ein: 


POKE 53256 ,1 (RETURN) 


POKE 53256 ,3 (RETURN) 
POKE 53256,0 (RETURN) 
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Sie sehen dann die Wirkung bei doppelter und vierfacher Breite 
(vergl. Abschnitt 1.1.4). Falls Sie das Männlein mit einzei- 
liger Auflösung programmieren wollen, geben Sie folgendes Pro- 
gramm ein: 


B REM PM-DEMO 2 - EINZEILIG 
18 POKE 186,PEEK (196) -8 

28 GRAPHICS 5:? "MOMENT BITTE" 

30 POKE 54279,PEEK (196) 

48 VERTIKAL=50: HORIZONTAL=1@0 

59 PMTABELLE=PEEK (106) #256 

&B8 FOR LOESCHEN=PMTABELLE TO PMTABELLE+2948 
78 POKE LOESCHEN,® 

80 NEXT LOESCHEN 

98 PLAYERG=PMTABELLE+1824 

188 FOR BYTE=@ TO 11 

118 READ DATEN 

128 POKE PLAYERB®+BYTE+VERTIKAL,DATEN 

138 NEXT BYTE 

148 POKE 559,58 

1508 POKE 53277,2 

168 POKE 784,255:REM HELLDRANGE 

178 POKE 53248,HORIZONTAL 

188 ? CHR$(125) 

198 GOTO 198 

200 DATA 56,56,16,124,254,187,185,169,40,40,40,108 


10: Vom RAMTOP aus müssen 8 "Seiten" (*256 Byte = 2048 Byte) 
reserviert werden. 

60: Zum Löschen der PM-Tabelle müssen nun 2048 FOR...NEXT- 
Durchläufe programmiert werden. 

90: Im Gegensatz zur zweizeiligen Auflösung, wo die Speicher- 
stellen für Player 0 bei 512 beginnen, liegen sie bei 
einzeiliger Auflösung im Bereich von 1024 bis 1279. 

140: Die Aktivierung der Bildschirmdarstellung von Playern mit 
einzeiliger Auflösung (vergl. Abschnitt 1.1.1). 


Auch hier sollten Sie nach RUN (RETURN) mit BREAK unterbrechen 
und mit den Anweisungen 


POKE 53256 ,1 (RETURN) 
POKE 53256 ,3 (RETURN) 
POKE 53256 ,2 (RETURN) 


die Wirkung der doppelten und vierfachen Verbreiterung be- 
trachten. 
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1.6.2 Bewegung 


Interessant wird Player-Missile-Grafik, wenn die einzelnen 0Ob- 
jekte durch Joystick oder innerhalb eines Programmablaufs be- 
wegt werden. Falls Sie einen Player nur horizontal bewegen 
wollen, müssen Sie folgendes Prinzip anwenden: 


BO REM PM-DEMO 3 — BEWEGUNG 

1B POKE 1986&,PEEK (196) -4 

2B GRAPHICS 35:7? "MOMENT BITTE" 

38 GOSUB 108 

48 H=58 

SB J=STICK (8) 

sa IF J=7 AND H<255 THEN H=H+1 

8» IF J=11 AND H>8 THEN H=H-1 

88 POKE 53248,H 

92 GOTO 58 

100 POKE 54279,PEEK(196) 

118 PMT=PEEK (196) #256 

128 FOR L=PMT TO PMT+1924:POKE L,QB:NEXT L 

138 PB=PMT+S12 

148 FOR L=B TO 11:READ D:POKE FPO+L+59,D:NEXT L 
158 FOKE 559,42 

1608 FOKE 53277,2 

178 FOKE 704,255 

188 ? CHR$#(125) :RETURN 

1990 DATA 56,56,16,124,254,187,185,169,40,40,49,188 


40: Die horizontale Anfangsposition des Männleins ist 50. 

50: Die Abfrage des Joysticks (Port 1). 

60: Solange der Steuerknüppel nach rechts gedrückt wird und 
die horizontale Position des Players den Wert 255 noch nicht 
überschritten hat, soll H um Eins erhöht werden. 

70: Solange der Steuerknüppel nach links gedrückt wird und H 
größer Null ist, soll H Eins abgezogen werden. 

80: Die aktuelle Horizontalposition wird gePOKEt. 

100 bis 190: Vergl. 90 bis 190 im PM-DEMO 1. 


Nach diesem Prinzip können Sie auch alle anderen Player 
entwerfen und (zunächst nur horizontal) bewegen. (Und wann, um 
alles in der Welt, kommen endlich die Missiles ins Spiel?) 
Nun, die Programmierung von Missiles unterscheidet sich kaum 
von der Player-Darstellung. Je nach Auflösung stehen Ihnen 128 
oder 256 Byte für ein Missile zur Verfügung. Die Breite be- 
trägt 2 Bit (vergl. PM-Tabelle im Abschnitt 1.1.2). 


Im folgenden Beispielprogramm wird zum Player 0 (Männlein) 
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noch Missile 0 hinzugefügt, das sich durch Knopfdruck (Joy- 
stick) von dem Männlein löst und mit einem schußartigen 
Geräusch nach rechts aus dem Bildschirm bewegt. 


@ REM PM-DEMO 4 - BEWEGUNG+MISSILE 
iD POKE 186,PEEK (196) -4 

2@ GRAPHICS 5:? "MOMENT BITTE" 

38 GOSUB 118 

48 H=50: HM=55 

5Q® J=STICK (8) :K=STRIG(®) 

&0 IF J=7 AND H<25@ THEN H=H+1:HM=HM+1 

70 IF J=11 AND H>5 THEN H=H-1:HM=HM-1 

B@ IF K=Q THEN GOSUB 240 

90 POKE 53248,H 

100 GOTO 58 

1180 POKE 54279,PEEK (10%) 

128 PMT=PEEK (106) #256 

138 FOR L=PMT TO PMT+1824:POKE L,@:NEXT L 

148 P@=PMT+512 

150 MO=PMT+384 

160 FOR L=8 TO 11:READ D:POKE P@+L+5@,D:NEXT L 
178 FOR L=@ TO 1:READ D:POKE MB+L+58,D:NEXT L 
180 POKE 559,46 

198 POKE 53277,3 

200 POKE 794,255 

21@ ? CHR$(125) :RETURN 

220 DATA 56,56,16,124,254,187,185,169,40,40,40,108 
23@ DATA 3,3 

248 SOUND @,F,8,1® 

258 POKE 53252,HM 

260 IF HM<255 THEN HM=HM+1:F=F+1:G0T0O 240 

278 HM=H+5:F=@0:50UND 8,8,0,8: RETURN 


40: Zusätzlich zur horizontalen Anfangsposition des Players 
wird die Anfangsposition des Missiles festgelegt. 

50: Abfrage des Joysticks und des Feuerknopfes (Port 1). 

60 und 70: Je nach Bewegung des Steuerknüppels verändert sich 
die Position des Players (Variable H) und des Missiles 
(Variable HM). 

80: Sobald der Feuerknopf gedrückt wird, springt der Rechner 
ins Unterprogramm 240. 

90: Die aktuelle Horizontalposition des Players wird gePOKEt. 
150: Die Anfangsadresse für Missile 0 beginnt nach 384 Byte 
innerhalb der Player-Missile-Tabelle. 

170: Neben den Daten für den Player werden auch die Daten für 
das Missile eingelesen und in der PM-Tabelle abgelegt. In 
diesem Fall ist das Missile zwei Linien hoch. 
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180 und 190: Der Bildschirm wird für die Darstellung von 
Playern und Missiles vorbereitet. 

200: Die Farbe von Missile 0 ist identisch mit der von Player 
0. Falls Sie in Ihren eigenen Programmen andersfarbige Missi- 
les verwenden wollen, wählen Sie einfach ein anderes Missile 
und definieren Sie die Farbe im dazugehörenden Player-Register 
nach Ihren Wünschen. Alle Player und Missiles lassen sich ganz 
unabhängig voneinander auf dem Bildschirm darstellen und 
bewegen. 

240: Mit diesem SOUND-Befehl laßt sich ein Schußgeräusch 
simulieren. Professionelle Anleitungen zur Programmierung von 
Soundeffekten finden Sie im "ATARI Sound- und Musik-Buch" 
(ebenfalls im Birkhäuser-Verlag erschienen). 

250: Die aktuelle Horizontalposition des Missiles wird ge- 
POKEt. 

260: Solange HM kleiner 255 ist, nimmt sein Wert um jeweils 
Eins zu. Gleichzeitig erhöht sich die Frequenzangabe (Variable 


F) für den SOUND-Befehl. 

270: Nachdem die "Kugel" aus dem Bildschirm verschwunden ist, 
wird der Tonkanal abgeschaltet und ins Hauptprogramm zurück- 
gekehrt. 


Nun fragen Sie sich allmählich, wann das nette Männlein end- 
lich auch vertikal bewegt wird. (Das scheint ja eine bewegende 
Geschichte zu werden.) - Um es gleich zu sagen: Vertikale 
Player-Missile-Bewegung in BASIC ist langweilig. Im Gegensatz 
zur Horizontalposition, wo einfach nur der neue Wert einge- 
POKEt wird, müssen zur vertikalen Bewegung die Player-Daten 
jeweils neu in die PM-Tabelle geschrieben werden. Es entsteht 
durch diesen Zeitaufwand ein ungleichmäßiger Bewegungsablauf. 
Das folgende Listing ist daher nur der Vollständigkeit halber 
aufgenommen worden. Sie können diese vertikale Steuerung in 
BASIC nur für kleine Player einsetzen (z.B. 4 bis 8 Zeilen 
hoch); dabei machen sich die ungleichmäßigen Bewegungen nicht 
so stark bemerkbar. Für komfortable Programme sollten Sie die 
Maschinenspracheroutine im PM-DEMO 6 verwenden. 


B REM PM-DEMO 5 - VERTIKAL BASIC 

108 POKE 196,PEEK(196) -4 

28 GRAPHICS 5:7? "MOMENT BITTE" 

3B V=-78:GOSUB 118 

408 H=58: HM=55 

52 J=STICK(B) :K=STRIG(O) 

68 IF J=7 AND H<258 THEN H=H+1:HM=HM+1 

78 IF J=11 AND H>5 THEN H=H-1:HM=HM-1 

z7ı IF J=14 AND V>B THEN POKE P@O+V+11,8:POKE MO+V+1,8 
:V=V-1:6G05SUB 280 
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72 IF J=13 AND V<10@ THEN POKE PB+V,@:POKE MO+V,8:V= 
V+1:GOSUB 280 

80 IF K=@ THEN GOSUB 240 

90 POKE 53248,H 

108 GOTO 58 

11® POKE 54279,PEEK (106) 

128 PMT=PEEK (186) #256 

138 FOR L=PMT TO PMT+1024:POKE L,@:NEXT L 

140 PO=PMT+512 

150 MO=PMT+384 

160 FOR L=® TO 11:READ D:POKE PO+L+V,D=:NEXT L 

170 FOR L=@ TO 1:READ D:POKE M@+L+V,D:NEXT L 

180 POKE 559,46 

190 POKE 53277,3 

200 POKE 704,255 

210 ? CHR$(125) :RETURN 

220 DATA 56,56,16,124,254,187,185,169,40,40,40,108 
230 DATA 3,3 

248 SOUND 8,F,8,1® 

250 POKE 53252,HM 

260 IF HM<255 THEN HM=HM+1:F=F+1:G0T0 248 

270 HM=H+S5:F=@:S0UND 8,0,0,8: RETURN 

280 RESTORE 22@:FOR L=® TO 11:READ D:POKE P@+L+V,D:N 
EXT L 

290 FOR L=® TO 1:READ D:POKE MO+L+V,D:NEXT L:RETURN 


71: Wenn der Steuerknüppel nach vorn gedrückt wird, soll sich 

die Vertikalposition des Players und Missiles um Eins vermin- 

dern; also auf dem Bildschirm nach oben wandern. Hierzu wird 

zuerst das unterste Byte des Players (PO+V+11) und Missiles 

(MO+V+1) gelöscht. Das ist notwendig, weil sonst die Füße des 

Mannleins an der alten Position "stehenbleiben". Sie können 

das Problem auch anders lösen, indem Sie für den Player statt 
12 Zeilen 14 und für das Missile 4 statt 2 Zeilen vorsehen und 
die oberste und unterste Zeile jeweils frei lassen (DATA-Zeile 
220 und 230 um 0,...,0 ergänzen). 

72: Durch Drücken des Steuerknüppels nach hinten bewegen sich 

Player und Missile nach unten. Hier ist es notwendig, das 

oberste Byte des Players und Missiles zu löschen (PO+V bzw. 

MO+V), da sonst der Kopf des Männleins an der alten Position 

"stehenbleibt". Mit dem vorgenannten Verfahren (14 Zeilen 

statt 12) können Sie auch hier das Problem lösen. Für welche 

Methode Sie sich entscheiden, bleibt Ihnen überlassen. Vor- 

oder Nachteile gibt es nicht. 

280 und 290: Durch RESTORE können die Daten für Player und 

Missile neu eingelesen und in die PM-Tabelle eingetragen 

werden. 
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Mit dem folgenden Listing können Sie Player und Missile durch 
eine Maschinenspracheroutine vertikal bewegen. Hierbei entste- 
hen keine unansehnlichen "Ruckelbewegungen". Die Daten für die 
Routine müssen sehr sorgfältig abgeschrieben werden. Fehlein- 
gaben können zum Absturz des Rechners führen. Die übrigen Pro- 
grammteile sind mit dem vorhergezeigten Listing identisch. 


0 REM FM-DEMO 4 -— VERTIKAL MASCHINENSPRACHE 
18 FOKE 196,PEEK (196) -4 
28 GRAPHICS 5:7 "MOMENT BITTE":DIM VH$ (21) ,„VR$(21):V 


S@ GOSUB 119:605SUB 288 

AQ@ H=50: HM=55 

S@ J=STICK(®) :K=STRIG (8) 

&0 IF J=7 AND H<25@ THEN H=H+1:HM=HM+1 

78 IF J=11 AND H>5 THEN H=H-1:HM=HM-1 

71 IF J=14 AND V>B THEN V=V-1:X=USR (VH,PB+V) :X=USR (V 
H,MO+V) 

72 IF J=13 AND V<108 THEN POKE P@+V,@:POKE MO+V,B:V= 
V+1: X=USR (VR ,PB+V) : X=USR (VR,MO+V) 

80 IF K=@ THEN GOSUB 248 

90 POKE 53248,H 

100 GOTO 58 

11@ POKE 54279,PEEK (196) 

128 PMT=PEEK (186) #256 

138 FOR L=PMT TO PMT+1824:POKE L,B:NEXT L 

148 PO=PMT+512 

150 MO=PMT+384 

160 FOR L=® TO 11:READ D:POKE P@+L+V,D:NEXT L 

170 FOR L=8 TO 1:READ D:POKE MO+L+V,D:NEXT L 

1808 POKE 559,46 

190 POKE 53277,3 

208 POKE 794,255 

218 ? CHR$ (125) :RETURN 

220 DATA 56,56,16,124,254,187,185,169,40,40,48,108 
238 DATA 3,3 

248 SOUND 8,F,8,1® 

250 POKE 53252,HM 

268 IF HM<255 THEN HM=HM+1:F=F+1:G0T0 248 

270 HM=H+5:F=8:S0DUND 8,8,8,8: RETURN 

288 VH=ADR (VH$) : VR=ADR (VR$) 

2908 FOR L=VH TO VH+2B:READ DsPOKE L,D:NEXT L 

308 FOR L=VR TO VR+2B:READ D:POKE L,D:NEXT L:RETURN 
318 DATA 104,104,133,204,1084,133,203,160,1,177 

3208 DATA 203,136,145,2803,200,200,192,17,208,245,96 
330 DATA 194,184,133,204,184,133,203,160,16,177 

348 DATA 203,209,145,283,136,136,192,255,288,245,96 
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Von der horizontalen und vertikalen Bewegung ist es nur ein 
kleiner Schritt, um Player und Missiles auch diagonal zu bewe- 
gen. Hier der Listing-Zusatz zum BASIC-Programm PM-DEMO 5: 


73 IF J=6 AND vV>B AND H<258 THEN POKE P@+V+11,80:POKE 
MO+V+1,0: V=V-1:H=H+1: HM=HM+1:GOSUB 288 

74 IF J=5 AND vV<190B AND H:{258 THEN POKE P@+V,@:POKE 

MB+V,@=: V=V+1:H=H+1: HM=HM+1:GOSUB 288 

75 IF J=9 AND v<1908 AND H>5 THEN POKE PB+V,B:POKE MB 
+V ,8: V=V+1:H=H-1:HM=HM-1:60OSUB 288 

76 IF J=1@ AND V>B AND H>5 THEN POKE P@+V+11,8:POKE 

MO+V+1,8: V=V-1:H=H-1:HM=HM-1:GDSUB 280 


Nun noch der Listing-Zusatz zum PM-DEMO 6, bei dem die 


Diagonalbewegung mit der Maschinenspracheroutine durchgeführt 
wird: 


78 IF J=11 AND H>5 THEN H=H-1: HM=HM-1 

7ı IF J=14 AND v>@ THEN V=V-1:G605SUB 558 

72 IF J=13 AND vV<18@ THEN FOKE P@+V,B:POKE MO+V,GB:V= 
V+1:G0OSUB 3680 

73 IF J=& AND V>@ AND H<258@ THEN V=V-1:H=H+1: HM=HM+1 
:G0OSUB 358 

74 IF J=5 AND V<188 AND H<258 THEN POKE FQ+V,@:POKE 

MO+V „=: V=V+1:H=H+1: HM=HM+1:GOSUB 560 

75 IF J=9 AND v<180B AND H>5 THEN FOKE FB+V,@:POKE MO 
+V „8: V=V+1:H=H-1: HM=HM-1:60SUB 568 

7& IF J=18 AND vV>B AND H>5 THEN V=V-1:H=H-1:2HM=HM-1: 
GOSUB 358 

358 X=USR (VH,PQ+V) : X=USR (VH,MB+V) :RETURN 

3aB X=USR(VR,PB+V) 2 X=USR(VR,„MO+V) RETURN 
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1.6.3 Kollisionen 


Im folgenden Beispielprogramn wird zunächst eine Player-Mis- 
sile-Tabelle für einzeilige Auflösung eingerichtet und zwei 
Player definiert. Player 1 soll einen Luftballon darstellen, 
Player 0 eine Nadel. Die folgenden Abbildungen zeigen die Bit- 
muster. 





(Die Nadel sieht aber komisch aus.) Ja, aber nur in dieser Ab- 
bildung. Im Programm wird Player 0 in vierfacher Breite 
dargestellt, so daß sie sehr langgezogen und spitz erscheint. 


Mit dem Joystick können Sie auf den Ballon zufahren, wobei Sie 
eine gePLOTtete Wand passieren müssen (Kollision Player/Hin- 
tergrund). Sobald die Nadel ihn berührt (Kollision Player/ 
Player), "platzt" er mit einem lauten Knall auseinander. Sie 
können dieses Demonstrationsprogramm selbst verändern, indem 
Sie andere Prioritäten setzen, weitere Player definieren oder 
mit Hilfe der Farbregister weitere Muster auf den Bildschirm 
PLOTten. 


B REM PM-DEMOF KOLLISIONEN 

18 POKE 186,PEEK(194) -8 

28 GRAFHICS 5:7? "MOMENT BITTE":COLOR ?2:FPLOT 30,8:DRA 
WTO 390,39 

38 v=78 

48 GOSUB 1890 

5@ H2B=58:H1=188 

&8 POKE 53249,H1 

78 POKE 53248,H8 | 

8a IF STICK(B)=7 THEN HR=HB+1 

9a IF PEEK(53268)=2 THEN GOSUB 1198:G0T0 58 
95 IF PEEK(53252)=2 THEN GDSUB 190 

188 GOTO 78 | 

118 SOUND 8,8,8,15:FOKE 53257,3 
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128 FOR L=B TO 5:NEXT L 

138 SOUND 8,5,8,15:POKE 535257,1 

140 FOR L=8B TO 5:NEXT L 

158 SDUND 98,18,8,15:POKE 535257,2 

168 FOR L=B TO 5:NEXT L 

17B SOUND 98,9,8,8:POKE 53249,8 

188 POKE 53278,8:FOR L=B TO 1BB:NEXT L:RETURN 
1998 ? "Sie durchbrechen die Mauer" 

2208 FOR F=18 TO 198 STEP 18 

218 SOUND 8,F,12,18 

228 NEXT F 

238 SOUND 8,8,8,9:FOKE 53278,80 

2408 RETURN 

1808 POKE 54279,PEEK(1B6) 

13818 PMT=PEEK (196) #256 

1828 FOR L=PMT+1824 TO PMT+1535:POKE L,B:NEXT L 
19390 PB=PMT+1924:P1=PMT+1288 

1848 FOR L=B TO 8:READ D:FOKE PB+L+V,D:NEXT L 
1058 FOR L=8 TO 13:READ D:POKE Pi+L+V,D:NEXT L 
10858 POKE 559,62 

1i87BD POKE 55277,53 

1088 POKE 784,126 

1092 FOKE 795,58 

1108 POKE 53256,3 

111@ POKE 53257,1 

112B POKE 623,2 

1138 ? CHR$ (125) :=RETURN 

1140 DATA 48,32,352,252,255,252,32,32,48 

1159 DATA 24,60,126 , 255,255, 255, 255,126,608,24,24,24, 
60,24 


1.6.4 Zusammengefügte Player 


Oft genug kommt es vor, daß die Breite von 8 Bit für eine 
Player-Figur nicht ausreicht oder mehrfarbige Objekte ge- 
wünscht werden. Man kann selbstverständlich mehrere Player 
nebeneinander anordnen, so daß sie wie eine einzige Figur er- 
scheinen. Dabei kann jeder Player eine andere Farbe annehmen. 


Eine weitere Möglichkeit zur Mehrfarbigkeit wurde bereits im 
Abschnitt 1.5 kurz erklärt; durch Setzen von Bit 5 (dezimal 
32) im Prioritätsregister 623 erreichen Sie eine Farbüber- 
deckung von Player 0 und 1 sowie von Player 2 und 3. Mit dem 
folgenden Programmbeispiel werden Player 0 und 1 an die glei- 
che Position gebracht und die Wirkung einer Farbüberdeckung 
veranschaulicht. Die beiden Abbildungen zeigen die Bitmuster 
der Player. 
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Player O Player 1 


@ REM PM-DEMOD 10 - FARBUEBERLAGERUNG 

18 POKE 10&6,PEEK(196)-4 

28 GRAPHICS 5:? "MOMENT BITTE" 

3@ POKE 54279,PEEK (196) 

408 PMT=PEEK (186) #256 

SQ FOR L=PMT+512 TO PMT+767:POKE L,@:NEXT L 
68 PO=PMT+512:P1=PMT+640 

78 FOR L=82 TO 13:READ D:POKE P@+L+5@,D:NEXT L 
80 FOR L=B TO 13:READ D:POKE Pi+L+5Q,D:NEXT L 
98 POKE 559,42 

100 POKE 53277,2 

118 POKE 794,206: POKE 705,62 

122 POKE 623,32 

1308 ? CHR$ (125) 

148 FÜR H=48 TOD 200 

15@ POKE 53248,H:POKE 53249,H 

1608 FÜR L=@ TO 2B@:NEXT L 

170 NEXT H 

188 GOTO 140 

198 DATA 24,60,0,255,24,24,24,24,24,24,24,255,0,126 
208 DATA 0,0,126,8,2,0,2,8,62,60,69,0,60,0 


10: Für zweizeilige Auflösung wird der erforderliche Speicher- 
platz reserviert. 

50: Da nur zwei Player verwendet werden, muß nicht unbedingt 
die gesamte PM-Tabelle gelöscht werden, sondern nur der Be- 
reich, der von den beiden Playern beansprucht wird. 

60: Die Anfangsadresse von Player 0 beginnt nach 512 Byte in- 
nerhalb der PM-Tabelle; die Anfangsadresse von Player 1 nach 
640 Byte. 

70: Die Dezimalwerte der beiden Player werden in die Tabelle 
gePOKEt. Der Wert 50 legt die Vertikalposition fest. Sie kön- 
nen hier auch einen anderen Wert einsetzen (10 bis 115 liegt 
im sichtbaren Bildschirmbereich). 
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90 und 100: Bildschirmvorbereitung für die Darstellung von 
Playern (vergl. Abschnitt 1.1.1). 

110: Die Farbwahl für die Player. 

120: In Register 623 wird Bit 5 (Farbüberdeckung) gesetzt. 

140 bis 180: Die Variable H beschreibt die Horizontalposition. 
Durch die FOR...NEXT-Schleife wandert die zusammengefügte und 
mehrfarbige Player-Figur langsam über den Bildschirm. 


Im nächsten Demonstrationsbeispiel werden drei Player neben- 
einander positioniert, so daß sie wie ein einziges Objekt er- 
scheinen. 





Player 0 Player 1 Player 2 


@ REM PM-DEMD 11 - ZUSAMMENGESTELLTE PLAYER 
id POKE 1986,PEEK(186) -8 

28 GRAPHICS 5:? "MOMENT BITTE" 

3a POKE 54279,PEEK(1046) 

48 PMT=PEEK (106) #256 

5® FOR L=PMT+1@24 TO PMT+1791:POKE L,B:NEXT L 
68 PO=PMT+1924:P1=PMT+1280: P2=PMT+1536 

7@ FOR L=® TO 4:READ D:POKE P&+L+70,D:NEXT L 
80 FOR L=B TO 4:READ D:POKE P1+L+70,D:NEXT L 
85 FOR L=® TO 6:READ D:POKE P2+L+70,D:NEXT L 
90 POKE 559,62 

i08 POKE 53277,2 

118 POKE 794,90:POKE 705,98:POKE 7064,98 

120 POKE 623,0 

138 ? CHR$(125) 

140 FOR H=48 TO 200 

158 POKE 53248,H:POKE 53249 ,H+B:POKE 53259,H+16 
168 FOR L=@ TO 10:NEXT L 

170 NEXT H 

182 GOTO 140 

1908 DATA 0,0,0,63,255,99,28,68,66,129,255,255,255,®, 
0,2,0,252,255,198,56 


10: In diesem Programm wird PM-Grafik mit einzeiliger Auflö- 
sung gewählt. POKE 106,PEEK(106)-8 reserviert den notwendigen 
Speicherplatz. 
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50: Player 0 bis 2 nehmen bei einzeiliger Auflösung den Be- 
reich von 1024 bis 1791 innerhalb der PM-Tabelle ein. Dieser 
Bereich wird zunächst gelöscht. 

90: Aktivierung des Bildschirms zur Darstellung von Playern 
mit einzeiliger Auflösung (vergl. Abschnitt 1.1.1). 

110: Festlegung der Farben für die Player. 

120: Falls Sie dieses Listing aus dem vorhergehenden um- 
schreiben, sollten Sie Register 623 wieder auf Null setzen. 
Wenn Sie dieses Programm jedoch ganz neu schreiben, können Sie 
Zeile 120 fortlassen. 

150: Da die drei Player genau nebeneinander erscheinen sollen, 
müssen für die Horizontalposition entsprechende Angaben. 
gemacht werden (H,H+8,H+16). Ein vierter Player müßte bei H+24 
stehen. Wenn Player untereinander zusammengefügt werden 
sollen, müssen die Vertikalpositionen entsprechend der Höhe 
der Player versetzt werden. In diesem Fall stehen alle drei 
Player in der Vertikalposition 70 (s. Zeilen 70 bis 85). 


1.6.5 Fünfter Player aus vier Missiles 


Das letzte, was Sie an grundsätzlichen Dingen über Player-Mis- 
sile-Grafik vielleicht schon immer einmal wissen wollten, ist 
das Zusammensetzen der vier Missiles zu einem fünften Player. 


Hierzu setzen Sie Bit 4 (dezimal 16) in Register 623 und 
positionieren alle Missiles nebeneinander (H,H+2,H+4,H+6). Das 
zuständige Farbregister ist 711. Nur beim Entwerfen der Figur 
gilt es, eine Spielregel zu beachten: Im Gegensatz zur 
Darstellung in der PM-Tabelle müssen Sie die Missiles 
spiegelverkehrt anordnen; also zuerst Missile O0 (Bit 1+0), 
dann Missile 1 (Bit 3+2), Missile 2 (Bit 5+4) und schließlich 
Missile 3 (Bit 7+6). Die Dezimalwerte, die Sie neben der 
vollständigen Player-Abbildung sehen, haben also nichts mit 
dem üblichen Bitmuster zu tun (die oberste Zeile müsste dann 
den Wert 129 tragen); sie stellen sich vielmehr aus der 
Addition der einzelnen Missile-Daten zusammen (z.B. oberste 
Zeile 2+64=66). Warum diese hardwaremäßige Verkomplizierung 


Mi 0 Mi 1 


Om ww N N) 
— 0 OD mm OD 
Dmn a 


nm 





Bit 32 
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bei ATARI vorgenommen wurde, wird wohl immer eines der 
ungeklärten Rätsel der Menschheit bleiben. 


@ REM PM-DEMO 12 - MISSILES ALS PLAYER 

10 POKE 196,PEEK(196) -4 

28 GRAPHICS 5:? "MOMENT BITTE" 

30 POKE 54279,PEEK (106) 

408 PMT=PEEK (196) #256 

sg FOR L=PMT+384 TOD PMT+S11:PDOKE L,@:NEXT L 
&0 MP=PMT+384 

78 FOR L=@ TO 7:READ D:POKE MP+L+50,D:NEXT L 
70 POKE 559,38 

i0@ POKE 53277,1 

11@ POKE 711,138 

120 POKE 623,16 

130 ? CHR$(125) 

140 FOR H=40 TO 208 

158 POKE 53252,H:POKE 53253,H+2:POKE 53254 ,H+4: POKE 
53255 ,H+6 

160 FOR L=8 TO 18:NEXT L 

17@ NEXT H 

1880 GOTO 140 

190 DATA 66,255,192,255,255,195,153,68 


50: Es wird nur der Bereich gelöscht, den die Missiles einneh- 
men. 

90 und 100: Darstellung Missiles bei zweizeiliger Auflösung 
(vergl. Abschnitt 1.1.1). 

120: Bit 4 in Register 623 zur Darstellung der vier Missiles 
als fünften Player. 

140 bis 180: Durch die FOR...NEXT-Schleife wandert die Maske 
über den Bildschirm. Sie können diesen Teil auch fortlassen 
und den fünften Player an einer festen Horizontalposition 
erscheinen lassen. 
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2. Kapitel 


Anwendungen 


2.1 Player als "Maus" 


Die Anwendungsmöglichkeiten für Player-Missile-Grafik sind ge- 
radezu unerschöpflich. (Das schreiben immer die Autoren, denen 
nichts besseres einfallt.) In diesem Fall stimmt es aber. Denn 
im Gegensatz zu der Bezeichnung lassen sich Player und 
Missiles nicht nur als "Spieler" und "Geschosse" einsetzen. Im 
folgenden KARTEI-Programm wird z.B. ein Player als Cursor 
benutzt, mit dem man wie mit einer "Maus" . auf dem Bildschirm 
herumfahren kann, um bestimmte Funktionen aufzurufen oder 
Texte einzutragen. 


Anstelle der externen Steuerung erfolgt hier die Steuerung 
über die vier Pfeiltasten. Durch Drücken von RETURN können Sie 
eine Eintragung machen oder eine Funktion aufrufen (z.B. Karte 
speichern). Die Verwendung eines Players hat den großen 
Vorteil, daß bei der Bewegung auf dem Bildschirm nicht ständig 
die vor und neben einem Cursor befindlichen Zeichen gelöscht 
und wieder aufgerufen werden müssen. Der Player bewegt sich 
einfach über die Buchstaben hinweg. 


Mit dem KARTEI-Programm können Sie Daten jeder Art archi- 
vieren; z.B. Bücher, Videofilme oder eine Briefmarkensammlung. 
Das Listing ist für den Betrieb mit Diskettenstation ausgear- 
beitet; falls Sie einen Datenrecorder benutzen, müssen Sie die 
Befehle zur Datenübertragung entsprechend ändern (z.B. beim 
Dateinamen C: statt D: einsetzen). Das bereitet jedoch keine 
Probleme. 


Der Player ist 8 Zeilen hoch, wobei in jedem Byte Bit 7 (dezi- 
mal 128) gesetzt wird. Im Programm erscheint der Player dann 
in vierfacher Breite, so daß Sie einen schönen Cursor vor 
Augen haben. 
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@ REM KARTEI 
18 FOKE 198&4,FEEK(106) -8 
28 GRAPHICS 8:DIM VH$(21) ,,VR$(21) ,DN$(14) ,X#(14) ,DT# 


(198) 
sa D 


‚sTWFt97) ,„NR$(18) 
IM E1$(538) ,„E2#1(50) „ES$ (39) „E4F (30) 


40 DN$="D: "2 V=40: HP=72 

sQa POKE 752,1:POKE 718,146 
188 GOSUB 1980: G560SUB 1200 
118 J=PEEK (764) 


120 
158 
148 
158 


IF J=7 AND HP<248 THEN HP=HP+4 

IF J=& AND HP>4 THEN HP=HP-4 

IF J=14 AND V>4 THEN V=V-1:X=USR(VH,PO+VW) 

IF J=15 AND V<24B THEN FPOKE PRO+V,9B: V=V+1:X=USR(V 


R,PO+V) 
168 IF J=12 THEN POKE 764,255:G0SUB 1408 

200 POKE 53248,HP 

300 IF PEEK(753)=8 THEN FOKE 764,255:F0OR L=8 TO 88:N 
EXTL 

305 XH=HP: XV=V 

318 GOTO 118 

1000 POKE 54279 ,PEEK (186) :PMT=PEEK (186) #256 

1810 FOR L=PMT+1824 TO PMT+1279:POKE L,@:NEXT L:P@=P 
MT+1024 

1828 POKE 559,58:POKE 53277,2:POKE 794,206:POKE 623, 
1:POKE 53256,3 

1838 FOR L=8 TO 7:READ D:POKE PO+L+V,D:NEXT L 

1840 DATA 128,128,128,128,128,128,128,128 

1108 VH=ADR (VH$) = VR=ADR (VR$) 

111® FOR L=VH TO VH+2Q:READ D:POKE L,D:NEXT L 

1128 FOR L=VR TO VR+2@:READ D:POKE L,D:NEXT L:RETURN 
1138 DATA 104,104,133,204,104,133,203,160,1,177 

1148 DATA 203,136,145,2903,200,2090,192,17,208,245,96 
1150 DATA 104,104,133,204,184,133,203,160,16,177 
1168 DATA 203,200,145,203,136,136,192,255, 208, 245,96 
1200 REM KARTEIKARTE 

1218 POSITION 8,1:? "Datei:";X$ 

122@ POSITION 21,1:? "Kartei-Nr.:"3NR$ 

1230 POSITION 0,3: ? "Stichwort:";STW$ 

1240 POSITION 21,3:? "Datum: ";DT$ 

125D POSITION Bude? "0 
12608 POSITION 2,6:? "1. Eintrags":POSITION 1,7:? Ei$ 
1278 POSITION 2,9:? "2. Eintrag: ":POSITION 1,10:? E2 
$ 

1288 POSITION 2,12:? "3. Eintrag:":POSITION 1,13:? E 
3$ 
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1298 POSITION 2,15:? "4. Eintrag: ":POSITION 1,16:? E 
4% 

12808 FOSITION 8,18:”7 " 
131@ POSITION 2,280:? "* Karte loeschen * Karte dru 
cken" 

1522 POSITION 2,21:? "* Karte speichern * Karte ein 
lesen” 

15358 FOSITION 2,22:7 "* Datei einlesen * Datei dru 
cken" Ä 
15348 FOSITION 2,23:”7 "* Disketteninhalt * Neue Date 
i"; 

15358 RETURN 

1400 REM EINGÄBEFUNKTIONEN 

1418 IF HP=72 AND V<45 THEN POSITION 7,1: INPUT X$:DN 
$(32)=X$: POSITION 7,1:?7 " "; - 

14208 IF HP=176 AND V<45 THEN POSITION 352,1: INPUT NR#$ 
:FOSITION 32,1:? " "5; 


1438 IF HP=88 AND V<öB THEN POSITION 11,3: INPUT STWE 


(ABER REED HARTEN AA: SHE TFENER LEE SEHR Cache GENAUE SEEEER SUEEEEN SEEEEEDE METER CHaHEriEN SÜD SEHEENE> UND CHARTER CARTEEE WEHRT SAMEN Ahlen SEEN HEEELED erben: Anl Aahgiint> Menke. 


:POSITION 11,5:7 " "5 

1448 IF HP=1564 AND V<öB THEN POSITION 28,35: INPUT DT$ 
POSITION 298,5:7 " "3 

14580 IF HP=1B@8 AND V>7B AND 98 THEN POSITION 1,7:1 
NPUT Ei#:POSITION 1,7:?7 " "5; 

1458 IF HP=1B88 AND v>94 AND V<114 THEN POSITION 1,18 
: INPUT E2#:FOSITION 1,190:?7 " "5 

1478 IF HP=1BB AND V>118 AND V<158 THEN POSITION 1,1 
Ss: INPUT E3F:POSITION 1,15:7 " "5 

1488 IF HF=1B0 AND V>142 AND V<s162 THEN POSITION 1,1 
6: INPUT E4$:POSITION 1,16:7 " "5; 


1478 IF HP=56 AND V>187 AND V<177 THEN GOSUB 1598: 7 
CHR$ (125):G0T0 1288 

1500 IF HF=132 AND V>187 AND V<197 THEN GOSUB 1688 
1518 IF HP=56 AND V>195 AND V<2985 THEN GOSUB 1700 
1528 IF HP=132 AND V>195 AND V<285 THEN GOSUB 1800 
1530 IF HP=56 AND V>2905 AND V<213 THEN GOSUB 19788 
1548 IF HP=132 AND V7285 AND V<213 THEN GOSUB 28808 
1558 IF HP=5& AND vV>211 AND V<221 THEN GOSUB 21008 
1549 IF HP=132 AND V>2Z11 AND V<221 THEN GOSUB 2288 
1578 RETURN 

1578 NRE="": STWE="":DTS=""E1S=""E2E=""E3S=""EAS- 
“RETURN 

18508 REM KARTE DRUCKEN | 

1618 LPRINT "Datei: ";DN$,;," Kartei-Nr.: ";NR$:SLPRIN 
T 

1528 LPRINT "Stichwort: ";STW$;" Datum: ";DT$: LPRIN 
T 
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16350 
1640 
1650 
1668 
1678 
16890 
1678 
1708 
1718 
1728 


Bu 
9 


1758 


ERRINT Pos EEE EDER BRETT ez 
LPRINT "1. Eintrag: ":LPRINT E1$:LPRINT 

LPRINT "2. Eintrag:":LPRINT E2$:LPRINT 

LPRINT "3. Eintrag:"=:LPRINT ES$:LPRINT 

LPRINT "4. Eintrag: ":LPRINT E4F:LPRINT 

ERRINT Da HEWLETT DE 
LPRINT :LPRINT :RETURN 

REM KARTE SPEICHERN 


POSITION 2,222? CHR$(156);:7 CHR#(1S56); 


POSITION 2,22:? "Neue Datei (8 oder Anhang (9) 


INPUT P:IF ASC{DNF(S))>3Z2 THEN OPEN #1,P,8,DN# 


1748 IF ASC{DN$(3F))=32 THEN POSITION 2,235:? "Eingabe 
Dateiname: ";:INPUT X$:DN#(5)=X$:0PEN #1,P,8,DN# 
1758 X$=CHR#$ (155) 

1768 FRINT #153 NR$; X$;, STW$; X#; DT$5 X, E1F, XF; E2F, X$; ES 
$; X; EAF,XF 

1778 CLOSE #1 

1788 GOTO 1510 

1822 REM KARTE EINLESEN 


1918 
1928 
19850 


Dateiname: 


1849 
1858 
1860 
1870 
1888 
1700 
1910 

„4,0, 
1920 


Dateiname: 


1758 
1733 
1748 
1758 
1768 


POSITION 2,22:7 CHR$(156);:7? CHRF(156); 
POSITION 2,22:? "Eingabe Kartei-Nr.:"5;:1NFUT NR 
IF ASC(DN$tS))=32 THEN POSITION 2,25:7? "Eingabe 
"=ssINPUT X$:DNF(5)=X$ 

TRAF 18809:0PEN #1,4,8,DN# 

INPUT #1,NR$,STWF , DTF,E1#,E2$,E35#,E4# 

IF VAL {NR£)I)=NR THEN CLOSE #1:60T0 1288 

GOTO 1858 

CLOSE #1:6G0T0 1288 

REM DATEI EINLESEN 
POSITION 2,22:? CHR$(156)9; 
“ke " 

IF ASC(DN$(S))=32 THEN FOSITION 2,235:? "Eingabe 
"s:1INPUT X#:DN$(N)=X$ 

TRAF 1998:DPEN #1,4,80,DN# 

INPUT #1 ‚NR$,STW$ ‚DT$,E1$,E2$,E3$,E4$ 

GOSUB 1220 

FOSITION 2,22:7 CHR$ (156) ;:7 CHR&(156)35 
POSITION 2,22:? "Weiterlesen mit W Ende mit E" 


:? CHR (155) ;,:0PEN #2 


;:GET #2,A 


1978 
1788 
1778 
22808 
2218 
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IF A=69 THEN CLOSE #1:CL0OSE #2:60T0 1518 
GOTO 1955 

CLOSE #1:CL0OSE #2:G0TD0 15180 

REM DATEI DRUCKEN 


POSITION 2,22:7 CHR$(156);:7 CHR$ (156); 


2828 IF ASC(DN$t3))=352 THEN FOSITION 2,22:? "Eingabe 
Dateiname: "3:1INPUT X$:DN$(HD=X#+ 

208308 TRAP 29878:0OPEN #1,4,2,DN# 

20848 INPUT #1,NR$,STWF,DT$,E1F,E2$,E3$,E4$ 

20508 GOSUB 1600 

2B&B GOTO 29848 

2070 CLOSE #1:6G0T0 1318 

2188 REM DISKETTENINHALT 

2118 TRAPF Z138:0PEN #1,6,8,"D:#*.#*":7? CHR$(125) 

2128 INPUT #1,X#:? X$:GOTDO 2128 

2138 CLOSE #1:? :”? "Weiter mit RETURN" 

2148 OPEN #1,4,8,"kK:" 

2158 GET #1,A:IF A=155 THEN CLOSE #1:7 CHR$(12I) :X$> 
"":GOTO 1280 

2288 REM NEUE DATEI 

2218 CLR :RUN 


10: Es wird PM-Grafik mit einzeiliger Auflösung gewählt. 

20 und 30: Die Variablen für die einzelnen Eintragungen (Da- 
teiname, Datum, Stichwort, Karteinummer) werden DIMensioniert. 
40: V und HP sind die Variablen für die vertikale und horizon- 
tale Position des Players. 

50: POKE 752,1 macht den normalen Cursor unsichtbar (Normal- 
wert = 0). Mit Register 710 bestimmen Sie die Hintergrundfarbe 
des Bildschirms. 

110: 764 ist das Tastaturregister. Die Werte, die hier je nach 
Tastendruck gespeichert werden, haben nichts mit dem ASCII- 
Code zu tun; es handelt sich um interne Werte. 

120 bis 150: Je nachdem, welche Pfeiltaste Sie drücken, bewegt 
sich der Player horizontal oder vertikal. 

160: Wenn Sie die RETURN-Taste drücken, (Wert 12 im Tasta- 
turregister), können Sie entweder eine Texteingabe machen oder 
eine Funktion aufrufen (s. 1310 bis 1340). Zur Texteingabe 
positionieren Sie den Player immer hinter den Doppelpunkt der 
gewünschten Eingabe (z.B. Stichwort:). Um eine Funktion auf- 
zurufen, setzen Sie den Player immer über das Sternchen vor 
der gewünschten Funktion (z.B. * Karte löschen). In den 
Abfragen des Programms wurden Toleranzwerte von -5 bis +5 über 
bzw. unter der betreffenden Bildschirmzeile eingearbeitet, so 
daß Sie den Player nicht millimetergenau steuern müssen. 

200: Die aktuelle Horizontalposition des Players. 

300: Der Wert des Tastaturregisters bleibt bis zum Drücken 
einer neuen Taste erhalten. Mit Register 753 kann festgestellt 
werden, ob überhaupt eine Taste gedrückt wird. Wenn dies nicht 
der Fall ist (Wert = 0), dann wird das Tasteturregister durch 
POKE 764,255 gelöscht. 
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1000 bis 1160: Die Player-Missile-Tabelle, Daten für die 
Farbe, Maschinenspracheprogramm zur vertikalen Bewegung usw. 
wie es in den vorhergehenden Demo-Programmen bereits aus- 
führlich kommentiert wurde. 

1200 bis 1300: Hier wird die Karteikarte auf den Bildschirm 
gebracht, in die Sie Ihre Eintragungen vornehmen können. Wenn 
Sie z.B. ein Videoarchiv einrichten, können Sie als "Stich- 
wort" das Genre (Krimi, Western usw.) eingeben, unter "1. 
Eintrag" den Regisseur oder die Videofirma angeben usw. Das 
Dateiprogramm ist also ganz universell einsetzbar. 

1310 bis 1340: Hier werden die Funktionen auf den Bildschirm 
gebracht, die Sie mit der "Maus" aufrufen können: den Text der 
aktuellen Karteikarte löschen, eine einzelne Karte ausdrucken, 
einlesen oder abspeichern, Einlesen oder Ausdrucken einer 
ganzen Datei, das Inhaltsverzeichnis einer Diskette auflisten 
und eine neue Datei erstellen. Wie oben bereits beschrieben, 
müssen Sie den Player nur über das Sternchen vor der Funktion 
plazieren und RETURN drücken. 

1410: Wenn Sie mit dem Player hinter die Doppelpunkte des er- 
sten Textes der Karteikarte fahren ("Datei:"), ist die 
Horizontalposition des Players = 72 und die Vertikalposition = 
40. Sobald Sie RETURN drücken, erscheint das Fragezeichen, das 
immer bei INPUT-Befehlen auftritt. Sie können nun den 
Dateinamen eingeben (z.B. VIDEOT.HEK). Wenn Sie wieder RETURN 
drücken, wird der Dateiname registriert und das Fragezeichen 
gelöscht. Sie können jetzt den Player weiter bewegen. 

1420 bis 1490: Genau wie für "Datei:" können Sie auch hinter 
den Doppelpunkten der anderen Texte Eintragungen vornehmen, 
wenn Sie den Player dort plazieren und RETURN drücken. | 
1500 bis 1570: Hier wird, je nach Position des Players, in das 
Unterprogramm gesprungen, das beim Aufruf einer Funktion aus- 
geführt werden soll. 

1600 bis 1690: Ausgabe der Karteikarte an den Drucker. 

1710 und 1720: Falls Sie zum ersten Mal eine Karteikarte 
speichern wollen, also eine Datei eröffnen, müssen Sie als 
zweiten Parameter des OPEN-Befehls eine 8 eingeben. Wenn Sie 
hingegen an eine bereits bestehende Datei anhängen wollen, ist 
der zweite Parameter eine 9. Mit Zeile 1710 werden die un- 
tersten beiden Bildschirmzeilen gelöscht und die Abfrage aus 
Zeile 1720 an diese Stelle gePRINTet. Ä 

1730: Nur wenn der ASCII-Wert des dritten Zeichens des Da- 
teinamens (D:x...) kein Leerzeichen ist (ASCII-Wert = 32), 
wird die Datei zur Diskettenstation eröffnet. Diese Sicherung 
wurde eingebaut, falls Sie vergessen, einen Dateinamen zu de- 
finieren. 

1750: Um die einzelnen Datensätze zu trennen, muß hinter jedem 
Eintrag ein EOL (End of Line) eingegeben werden. 
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1760: Die Eintragungen der Karteikarte werden an die Dis- 
kettenstation -abgegeben. 

1800 bis 1880: Mit dem KARTEI-Programm haben Sie die 
Möglichkeit, einzelne Karteikarten aus der Gesamtdatei zu 
selektieren. Hierzu geben Sie die Karteinummer ein, die vom 
Rechner gesucht und auf dem Bildschirm ausgegeben wird. Sollte 
sich die gesuchte Karte nicht in der Datei befinden, wird der 
Selektiervorgang einfach abgebrochen. Natürlich können Sie 
auch nach anderen Kriterien auswählen; z.B. indem Sie die Da- 
tei nach Stichworten durchsuchen. Zeile 1860 müßte dann 
lauten: IF STW$=SUCHWORT$ THEN CLOSE#1:G0T0 1200. (SUCHWORT$ 
müßten Sie in Zeile 30 noch DIMensionieren.) 

1900 bis 1990: Anstelle einer einzelnen Karte (Unterprogramm 
1800) wird hier die gesamte Datei eingelesen. Der TRAP-Befehl 
in Zeile 1930 sorgt dafür, daß ins Hauptprogramm zurück- 
gesprungen wird, sobald eine Lesefehler auftritt (Dateiende). 
2000 bis 2070: Anstelle einer einzelnen Karte (Unterprogramm 
1600) wird hier eine gesamte Datei auf dem Drucker ausgegeben. 
2100 bis 2150: Mit dem Parameter 6 des OPEN-Befehls kann man 
das Inhaltsverzeichnis einer Diskette lesen, ohne DOS auf- 
zurufen. Diese Funktion ist hier nützlich, wenn Sie z.B. 
wissen wollen, wieviel Speicherplatz sich noch auf einer Dis- 
kette befindet oder wenn Sie prüfen wollen, welche Datei- 
namen Schon existieren. 


2.2 Player-Missile-Grafik als Spielelemente 


Neben der "seriösen" Anwednung, wie im vorhergehenden Programm 
gezeigt, läßt sich PM-Grafik freilich auch für Computerspiele 
einsetzen. Die Player eignen sich dabei als Figuren, Gefäße, 
Raumschiffe, Monster usw.; die Missiles als Geschosse oder für 
einen fünften Player (vergl. Abschnitt 1.6.5). 


Falls Sie einmal nach Herzenslust herumballern wollen, können 
Sie das folgende Programm eingeben, bei dem es um eine 
"Geisterjagd" geht: Ständig tauchen an zufälligen Stellen 
Geister mit grinsenden Gesichtern oder Finstermienen in allen 
verfügbaren Farben auf und hetzen auf Sie zu. Mit einer Kanone 
können Sie sich der Unholde erwehren. Das Spiel ist gleich- 
zeitig ein schönes PM-Beispiel, da alle vier Player eingesetzt 
werden und die Farben und Positionen der Figuren ständig 
wechseln. Selbst wenn Sie die Geister nicht "abschießen" 
wollen, können Sie sich allein durch den farbenprächtigen 
Anblick unterhalten lassen. 


4] 





Player 0 





Player 1 Player 2 


@ REM BALLER 


POKE 1B864,PEEK(1906) -4 

GRAFHICS 1:? "EIN MOMENT BITTE" 

DIM VH$ (21) „VR$(21),F(2) „H(2) „V(2) 

FOR Z=9B TOD 2:V(ZI=INT (BRBH&RND (BI) +IB: NEXT Z 
H=1 98: V=58: VM=V+3:R=53256: GOSUB 10908 

FOR Z=B TO 2:F(ZI=INT(16*RND (BI) )#x16+12: NEXT Z 
FOR Z=B TO 2:H(Z)I=INT(1BB*RND (BI )+3B: NEXT Z 
Z=8 


180 POKE 785,F(B):POKE 7B64,Fti):POKE 787,Ft2) 
118 J=STICK (@) :K=STRIG (8) 


120 
VH, 
138 
M+1 
140 
POK 
158 
160 
170 
180 
190 
20m 
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IF J=14 THEN V=V-1:VM=VM-1:X=USR (VH,PO+V) : X=USR ( 
MI+VM) 

IF J=13 THEN POKE P@+V,@:POKE MI+VM,@: V=V+1:VM=V 
: X=USR (VR,P@+V) = X=USR (VR,MI+VM) 

POKE 53249,H(®@) :POKE 53258,H(1):POKE 53251,H(2): 
E 53252 ,H+3 

IF H(@)<228 THEN H(Q)=H(D) +1 

IF H(1)<22@ THEN H(l)=H(1)+1 

IF H(2)<228 THEN H(2)=H(2) +1 

IF K=@ THEN KX=1 

IF KX=1 THEN H=H-1Q:F=F+1:50UND 9,F,8,15 

IF H<45 THEN SOUND 9,0,0,0:H=190: F=8:KX=0 


zi2 


IF H(W=228 THEN H{B)=INTLIRBB&RND (BI I) +IQB:F(O)=IN 


Tt16*RND (B) ) #14+12 


220 


IF H{1)=22@8 THEN H(1)=INT(10Q*RND (0) )+3@:F(1)=IN 


T(15*RND (OB) ) #16+12 


230 


IF H{2)3=228 THEN H(ZI=INT(I1BBxRND (BI) ) +32: FtZI=IN 


T{18&%*RND (BO) ) #16+12 
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IF PEEK{R)I<>1 THEN FOKE 535278,8:FOR Y=8 TO 10:NE 


XT Y:GOSUB 520 


2382 
>02 
Bar] 74 
„al 
02Z 
305 
>24 
„10 
322 
352 
342 
Bar pa] 
sog 
70 


IF PEEK (53240)<>@ THEN ? "VERLOREN" :END 
GOTO 1080 

REM KOLLISION 

IF PEEK{R)=2 THEN Z=1 

IF FEEK(R)=4 THEN Z=2 

IF PEEK(R)=8B THEN Z=3 

IF Z>3 THEN RETURN 

SOUND 0,2,8,1@:POKE R+Z,1 

SOUND 2,5,8,1@:POKE R+Z,?2 

SOUND @0,10,8,1@:POKE R+Z,1 

SOUND 0,15,8,1@:POKE R+Z,2 

SOUND 0,292,8,10:POKE R+Z,3 

SOUND 0,5,8,12:POKE R+Z,2 

SOUND 2,2,8@,8:PU=PU+1:? CHR$(125);PU 


„90 Z= 


Z-1:FOEE 533249+Z7,8 


378 V{ZI=INTCBORRND (DI) +1B:FCZI=SINTCIS#RND (DB) ) #16+12 
:H{ZI=INT(1BAxRND (BI) ) +30 

&AB RESTORE 10110+Z#18 

si IF Z=B THEN Z=11:PL=P1:X=08 

628 IF Z=1 THEN Z=5:PL=P2:X=1 

6308 IF Z=2 THEN Z=11:PL=P3:X=2 

&4B FOR L=B TO 127:FOKE PL+L,B8:NEXT L 

&58 FOR L=B TO Z:READ D:FOKE PL+L+V(X) ,„D:NEXT L 
&48 H=198:FOKE 53252,H+3 

670 FOKE 535778,8:X=2:F=0:KX=® 

&9Q8 RETURN 


12000 
12010 
12020 
12050 
10042 
T+384 
12050 
12040 
12070 
12080 
12098 
12100 
12110 


REM FM-TABELLE 

FOEE 542797,FPEEK(186) 

FMT=PEEK (196) #256 

FOR L=PMT TO PMT+18B2Z4:POKE L,B:NEXT L 
FO=FMT+512:P1=P@+128:P2=P1+128: P3=PZ+128:MI=PM 


FÜR L=@ TO 6:READ D:POKE F@O+L+V,D:NEXT L 

FOR L=@ TO 11:READ D:POKE Pi+L+V<@) ,D:NEXT L 
FOR L=@ TO S:READ D:POKE P2+L+V(1),D:NEXT L 
FOR L=@ TO 11:READ D:POKE PS+L+V(?) ,„D:NEXT L 
POKE MI+VM,S:POKE MI+1+VM,3 

DATA 14,3,30,254,30,3,14 

DATA 56,1274,84,214,254, 254 , 254,254 ,254 , 254,254 
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18120 DATA 1264,219,255,189,195,126 
10130 DATA 56,68,186,146,146,130,1864,198,124,68,68,6 


10210 POKE 559,46:POKE 53277,3:POKE 623,2 
10229 POKE 7@4,58:POKE 53248,H:POKE 53260,1 

10230 ? CHR$(125) 

10300 VH=ADR (VH$) =: VR=ADR (VR$) 

10310 FOR L=VH TO VH+20:READ D:POKE L,D:NEXT L 

10328 FOR L=VR TO VR+2B:READ D:POKE L,D:NEXT L:RETUR 


103S35@ DATA 194,104,133,204,104,133,203,16@8,1,177 
10349 DATA 203,136,145,203,200,200,192,17,208,245,96 
10358 DATA 104,104,133,204,104,133,203,160,16,177 
10364Q DATA 2083,290,145,203,136,136,192,255,208,245,9 


40: Die Vertikalpositionen der Geister werden in jedem Durch- 
lauf zufällig erzeugt. 

50: Die Anfangsposition der Kanone. 

60 und 70: Zufallsermittlung für die Farben und Horizontalpo- 
sitionen der Geister. | | 

100: Die aktuellen Farben der Geister werden gePOKEt. 

110: Die Bewegung der Kanone erfolgt über Joystick (Port 1). 
120 und 130: Je nach Bewegung des Steuerknüppels bewegt sich 
die Kanone vertikal auf oder ab. 

140: Die aktuellen Horizontalpositionen der Geister. 

150 bis 170: Solange die Geister den sichtbaren Bildschirm- 
bereich noch nicht verlassen haben (Wert ab 220), sollen sie 
sich von links nach rechts bewegen (Hx=Hx+1). 

180: Wenn der Feuerknopf gedrückt wird (K=0), nimmt die Hilfs- 
variable KX den Wert 1 an. 

190: Wenn HX=1 ist, soll sich Missile 0 in Zehnerschritten auf 
die Geister zubewegen. Gleichzeitig ertönt ein Schußgeräusch 
(Einzelheiten über Soundprogrammierung in "ATARI Sound- und 
Musik-Buch", Birkhäuser-Verlag). 

200: Sobald das Missile aus dem sichtbaren Bildschirmbereich 
wandert (H kleiner 45), was bedeutet, daß kein Geist getroffen 
wurde, wird der Tonkanal abgeschaltet und das Missile wieder 
der Position der Kanone zugeordnet. 

210 bis 230: Sobald ein Geist aus dem Bildschirmfenster glei- 
tet, wird seine Vertikal- und Horizontalposition sowie seine 
Farbe neu bestimmt. Er erscheint dann wieder auf dem 
Bildschirm. Das erweckt den Eindruck, als tauchten ständig 
neue Geister "aus dem Nichts" auf. 
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240: 53256 ist das Kollisionsregister für Missile 0 (Variable 
R). Wenn eine Kollision mit einem Geist erfolgt, nimmt das 
Register den Wert 2,4 oder 8 an (vergl. Abschnitt 1.4). In 
diesem Fall springt der Rechner ins Unterprogramm 500. 

250: Sobald ein Geist mit der Kanone kollidiert, ist das Spiel 
verloren. 

510 bis 580: Wird ein Geist getroffen, verschwindet er mit 
einem Knall vom Bildschirm. Als besonderer Effekt wird das Re- 
gister für die Breite des betroffenen Players kurz auf 
doppelte und vierfache Breite geschaltet. 

590: Für den getroffenen Geist wird eine neue Position und 
Farbe errechnet. 

600: In den Zeilen 10110 bis 10130 stehen die Daten für die 
drei Geister. Für den getroffenen Geist werden die Daten RE- 
STOREd; d.h. sie können erneut gelesen werden. Wenn Geist 2 
getroffen wurde (Player 2), ist Z=1l. Somit wird 10110+1*10= 
10120 RESTOREd. 

610 bis 630: Da die Geister unterschiedlich hoch sind, muß 
noch festgelegt werden, wieviele FOR...NEXT-Durchläufe zum Da- 
teneinlesen notwendig sind. 

640 und 650: Zunächst wird der Tabellenbereich des betroffenen 
Players gelöscht (Sie sehen sonst zwei identische Player auf 
dem Bildschirm), danach die Daten an die neue Vertikalposition 
gePOKEt. 

660: Das Missile wird auf die ursprüngliche Position (Kanone) 
zurückgesetzt. 

670: Löschen des Kollisionsregisters. 

10000 bis 10360: Für dieses Spiel wurde Player-Missile-Grafik 
mit zweizeiliger Auflösung gewählt. Der Aufbau der PM-Tabelle 
wurde im ersten Kapitel des Buches ausführlich erklärt. 
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2.3 Nützliche Bildschirmroutinen 


Die folgenden Abschnitte haben direkt nichts mit Player-Missi- 
le-Grafik zu tun; es handelt sich um Programmiertricks für 
Bildschirmdarstellungen. Sicher haben Sie schon einmal in pro- 
fessionellen Programmen beobachtet, daß die Grafik des Bild- 
schirms blitzschnell wechselt oder ganze Landschaften vorüber- 
rollen. Solche Zaubereien können Sie auch in Ihre eigenen 
Programme einarbeiten. Sie gewinnen dadurch die Möglichkeit, 
neben der farbenreichen und feinauflösenden Player-Missile- 
Grafik weitere interessante Effekte zu verwirklichen. 


Unter "Page-Flipping" ist das blitzschnelle Wechseln von Bild- 
schirmseiten zu verstehen. Page-Flipping kann z.B. eingesetzt 
werden, wenn ein Player auf dem Bildschirm eine Tür berührt 
und im nächsten Moment das Innere des Raumes erscheint. Ge- 
nauso gut lassen sich aber auch einzelne Seiten eines 
geschriebenen Textes auf diese Weise aufrufen. 


Um Page-Flipping zu erreichen, muß der "Zeiger" auf die sog. 
Display-Liste geändert werden. In dieser Liste sind die Daten 
für den Bildschirmaufbau enthalten sowie die Adressen für den 
Anfang des Bildschirmspeichers und der Display-Liste selbst. 
Die gesamte Thematik ist relativ kompliziert; in dem Buch 
"ATARI-BASIC Trickkiste" (Birkhäuser-Verlag) wird die Display- 
Liste in einem eigenen Kapitel ausführlich erklärt. Für das 
folgende Beispiel daher nur das Wichtigste: Wenn Sie z.B. 
GRAPHICS 3+16 einschalten, stehen Ihnen 40 Spalten und 24 
Zeilen zur Verfügung. In den Adressen 560 und 561 stehen das 
Low-Byte und High-Byte für den Anfang der Display-Liste 
(Formel PEEK(560)+PEEK(561)*256 = Anfang). Wenn Sie sich von 
dieser Anfangsadresse aus die Inhalte der 32 folgenden 
Adressen ausdrucken lassen, erhalten Sie für GRAPHICS 3+16 
folgende Display-Liste: 


112 Leerzeile 
112 Leerzeile 
112 Leerzeile 
72 GR.3-Zeile (8) + Option der Anfangsadresse 


für den Bildschirmspeicher (64) 
112 Low-Byte Bildschirmspeicher 
158 High-Byte Bildschirmspeicher 
8 23 verbleibende GR.3-Zeilen 
8 


32 


00 CO 009 00 0 O0 O0 00 00 00 00 m 00 0 0 00 CO 0 0 00 


65 Rücksprungbefehl zu: 
80 Low-Byte Display-Liste 
158 High-Byte Display-Liste 


Diese Zahlen wurden auf dem 800XL ermittelt; die Low-Byte- und 
High-Byte-Werte können daher bei den anderen Modellen ver- 
schieden sein. Mit der 33. Adresse hinter dem Anfang der 
Display-Liste beginnt also der Bildschirmspeicher (in diesem 
Fall die Adresse 40560). Dies ist die oberste linke Ecke des 
Bildschirms in GRAPHICS 3+16. Für jede Grafikbetriebsart gibt 
es eine andere Display-Liste, die Sie sich nach der oben 
gezeigten Methode auflisten können. Eine Zeile in GRAPHICS O0 
(beim Einschalten) hat z.B. den Wert 2. Sie können zum Spaß 
einmal mitten in die GRAPHICS-Zeilen eine Leerzeile (112) 
POKEn. Dann erhalten Sie einen unterbrochenen Bildschirm mit 
Schwarzer Linie. 


Beim Page-Flipping werden Display-Listen in einem reservierten 
Speicherbereich abgelegt und nach Bedarf aufgerufen. Dazu 
müssen Sie im Programmablauf nur die Anfangsadresse der aktu- 
ellen Display-Liste in Register 561 (High-Byte) einPOKEn. 
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DB REM FAGE-FLIPPING 
18 GRAPHICS 3+1&6 

2B A=PEEK (561) 

z@ COLOR 1 

48 FLOT 0,18 

SQ DRAWTO 39,18 

608 FLOT 8,13 

78 DRAWTO 39,13 

80 POKE 196,PEEK (106) -2 
98 GRAPHICS 3+16 
100 B=PEEK (561) 

118 COLOR 2 

128 PLOT 8,15 

138 DRAWTO 39,10 
140 PLOT 0,18 

150 DRAWTO 39,13 
160 POKE 561,B 

170 FOR X=@ TO 1008 
188 NEXT X 

198 POKE 561,A 

200 FOR X=8 TO 1908 
2108 NEXT X 

228 GOTO 160 


10: Die Grafikbetriebsart 3+16 wird gewählt. 

20: Das High-Byte für den Anfang der Display-Liste wird der 
Variable A zugewiesen. 

30 bis 70: Es werden zwei Linien auf den Bildschirm ge- 
zeichnet. 

80: Für die zweite Bildschirmseite muß vom RAMTOP aus (oberste 
Adresse des vefügbaren RAM) ein Speicherbereich reserviert 
werden, in dem die Display-Liste und der Bildschirmspeicher 
Platz haben. GRAPHICS 3+16 beansprucht hierfür 432 Byte. Der 
Einfachheit halber sollten Sie immer ganze "Seiten" (=256 
Byte) vom RAMTOP aus reservieren. In diesem Fall genügen also 
zwei Seiten (=512 Byte), um eine Display-Liste für GRAPHICS 
3+16 unterzubringen. 

90: Durch erneutes Aufrufen von GRAPHICS 3+16 kann die zweite 
Bildschirmseite gestaltet werden. 

100: Die hierfür zuständige Anfangsadresse der Display-Liste 
wird der Variable B zugewiesen. 

110 bis 150: Auch auf die zweite Bildschirmseite werden Linien 
gezeichnet. 

160 bis 220: Beide Display-Listen werden durch die abwechselnd 
durch POKE 561,A und POKE 561,B aufgerufen. Dadurch erscheinen 
die verschiedenen Linienmuster blitzschnell auf dem Bildschim. 
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Nach diesem Prinzip können Sie alles mögliche auf die einzel- 
nen Bildschirmseiten zeichnen (z.B. ein Labyrinth, das sich 
über mehrere Seiten ausdehnt). Wenn Sie andere Grafikbetriebs- 
arten verwenden, müssen Sie darauf achten, daß Sie genügend 
Speicherplatz für jede Display-Liste reservieren. GRAPHICS 
5+16 z.B. beansprucht wegen der feineren Auflösung 1176 Byte. 
Hier müssen Sie also 5 Seiten vom RAMTOP aus reservieren 
(5*256=1280). Dem Page-Flipping sind somit natürliche Grenzen 
gesetzt, da nicht endlos Speicherplatz reserviert werden kann. 
Für die hochauflösenden Grafikbetriebsarten (8,9,10), die je- 
weils 8138 Byte beanspruchen, ist es daher sinnvoller, die 
nachfolgende Maschinensprachroutine zum Laden von extern 
abgespeicherten Bildschirminhalten zu benutzen. 


2.3.2 Laderoutine 


Wenn Sie in einem Programm viele verschiedene Bildschirmseiten 
in hochauflösender Grafik verwenden wollen, können Sie die 
folgende Maschinenspracheroutine in Ihr Listing einarbeiten 
und beliebige GRAPHICS 8+16-Seiten von Diskette oder Kassette 
einlesen. Der Bildschirmaufbau geschieht dabei schneller als 
die normalen PLOT...DRAWTO-Befehle. Jede gespeicherte Bild- 
sn nnseite beansprucht ca. 62 Sektoren auf der Diskette (DOS 
2)» 


@ REM BILD.LAD 

iB8 GRAPHICS 8+16:DIM C$(7) 

20 D=PEEK (560) +PEEK (561) #256 

30 DN=PEEK (D+4) +PEEK (D+5) #256 

40 OPEN #1,4,8,"D:BILD.DAT" 

5@ TRAP 128 

60 A=848:POKE A+2,7:POKE A+5,INT(DN/2564) :POKE A+4,IN 
T (DN- ( (PEEK (A+5) #256))) 

78 B=7680:POKE A+9,INT(B/256):POKE A+8,INT(B-((PEEK( 
A+9)#256))) 

80 C$(1)=CHR$ (104) :C$ (2) =CHR$ (104) :C$ (S)=CHR$ (104) 
98 C$(4)=CHR$ (170) :C$ (5) =CHR$ (76) :C$ (6) =CHR$ (86) : C$ 
7) =CHR$ (228) 

100 C=USR(ADR(C$),16) 

11®d RESTORE 380:FOR X=B TO #B:READ Y:POKE 1536+X,Y:N 
EXT X 

128 CLOSE #1 

138 GOTO 130 

300 DATA 104,104,141,21,6,104,141,20,6,104,141,27,6, 
104,141,26,6,160,193,173,255,255,136,248,35,141,255, 
255,238 
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310 DATA 26,6,240,21,173,28,6,56,233,48,141,20,6,144 
‚„4,24,76,19,6,2086,21,6,76,19,6,238,27,6,76,33,6,96 


Hier werden die Bildschirmdaten der Datei "BILD.DAT" eingele- 
sen. Falls Sie mehrere Seiten gespeichert haben, arbeiten Sie 
am besten mit einer String-Variablen (z.B. IF SITUATION = 1 
THEN DN$="D:BILDI":OPEN #1,4,0,DN$ usw.). 


Um die Bilder abzuspeichern, können Sie folgendes Prinzip 
anwenden: 


@ REM BILD.DAT 

10 GRAPHICS 8+16 

28 A=FEEK (88) +PEEK (89) #256 

38 COLOR 1 

40 PLOT 8,8:DRAWTO 319,8:DRAWTO 319,191:DRAWTO 8,191 
:DRAWTO 8,8 

S® PLOT 1,1:DRAWTO 318,1:DRAWTO 318,198:DRAWTO 1,190 
:DRAWTO 1,1 

68 PLOT 2,2:DRAWTO 317,189 

78 PLOT 2,189:DRAWTO 317,2 

80 PLOT 30,38:DRAWTO 298,38: DRAWTO 298,168: DRAWTO 38 
‚188: DRAWTO 39,30 

908 FLOT 31,31:DRAWTO 289,31:DRAWTO 289,159:DRAWTO 31 
‚159:DRAWTO 31,31 

100 OPEN #1,8,8,"D:BILD.DAT" 

118 PUT #1,PEEK(A) 

120 A=A+1:B=B+1:IF E=7688 THEN PUT #1,155:CL0OSE #1:E 
ND 

130 GOTO 11® 


Das eigentliche Programm sind nur die Zeilen 20 und 100 bis 
130. Mit den PLOT...DRAWTO-Befehlen (40 bis 90) wird ein Test- 
bild erzeugt. Sie können hier die Grafik erstellen, die Sie 
später in Ihrem Programm aufrufen wollen. 
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2.3.3 Vertikales Scrollen 


In manchen Programmen ist nicht der blitzschnelle Bildschirm- 
wechsel gefragt, sondern das scheinbar endlose Rollen einer 
Grafik (z.B. einer Landschaft). Um dies zu erreichen, muß in- 
nerhalb der Display-Liste der Zeiger auf den Beginn des Bild- 
schirmspeichers fortlaufend verändert werden. In GRAPHICS O0 
(normale Betriebsart nach dem Einschalten) erhalten Sie fol- 
gende Display-Liste (800XL-Version): 


112 Leerzeile 

112 Leerzeile 

112 Leerzeile 

66 GR.O-Zeile (2) + Option der Anfangsadresse 
für den Bildschirmspeicher (64) 

64 Low-Byte Bildschirmspeicher 


152 High-Byte Bildschirmspeicher 
23 verbleibende GR.O-Zeilen 


DDyDyDyDyyDyDyyIyRIRDRRRDIRIBIRBDIR DIT DIRT DD DB DB DB DDD 


65 Rücksprungbefehl zu: 
32 Low-Byte Display-Liste 
156 High-Byte Display-Liste 


Mit dem nachfolgenden Programm können Sie die Display-Liste 
ausdrucken lassen: 
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B REM DFL.GR& 

18 GRAFHICS 08 

208 A=PEEK (56B) +PEEK (561) #256 
sB FOR X=A TO A+32 

48 LFRINT X;",";FEEK(X) 

SB NEXT X 


Schreiben Sie nun versuchsweise einmal: POKE A+4,PEEK(A+4)+40 
(RETURN). Sie werden sehen, daß sich die Darstellung auf dem 
Bildschirm um eine Zeile nach oben schiebt. Das Low-Byte für 
die Adresse auf den Beginn des Bildschirmspeichers wird um 40 
erhöht (da GRAPHICS 0 über 40 Spalten verfügt). Dies ist das 
Grundprinzip für vertikales Scrollen. In anderen Grafikbe- 
triebsarten muß das Low-Byte um die Anzahl der jeweils 
verfügbaren Spalten erhöht werden (z.B. 80 in GRAPHICS 7). Mit 
folgendem Programm rollen 200 Zeilen auf dem Bildschirm 
vorüber. 


@ REM VERTIKAL.SCR - HOCH 
28 GRAFHICS 8 

30 A=PEEK (56@) +PEEK (561, %*256 

40 BL=PEEK (A+4) : BH=PEEK (A+5) 

SQ FOR X=@ TO 208 

60 BL=BL+40: IF BL>=256 THEN BL=BL-256: BH=BH+1:FPOKE A 
+5,BH 

78 POKE A+4,BL 

80 FOR Z=@ TO SO:NEXT Z 

98 NEXT X 

188 GRAPHICS @:LIST :END 


Die Variablen BL und BH bedeuten "Bildschirmspeicher Low-Byte" 
und "Bildschirmspeicher High-Byte". In Zeile 40 wird BL bei 
jedem FOR...NEXT-Durchlauf um 40 erhöht. Sobald BL dabei 256 
erreicht oder übersteigt, wird BH um Eins erhöht. Nach RUN 
(RETURN) sehen Sie auf dem Bildschirm "seltsame Zeichen". Es 
handelt sich um die Darstellung der Inhalte der Speicher- 
stellen, die sich hinter dem normalen Bildschirmspeicher 
befinden. Sie können sich also mit dieser Methode den gesamten 
Speicher des Computers auf den Bildschirm holen. 


Zum vertikalen Scrollen abwärts muß das Prinzip genau umge- 
kehrt werden: BL=BL-40. Da sich beim augenblicklichen Programm 
in den Speicherstellen vor der Display-Liste nichts befindet 
(ungenutzter RAM-Bereich), werden im folgenden Beispielpro- 
gramm als Beginn des Bildschirmspeichers die Adressen 128 und 
129 angegeben. Diese Adressen enthalten den sog. "Zeiger" 
(Low-Byte und High-Byte) auf das BASIC-Programm; d.h. ab 
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diesem Register ist das aktuelle Programm gespeichert. Sie 
werden hier jedoch nicht das normale Listing sehen, sondern 
das BASIC-Programm im sog. Token-Format. Das sind die maschi- 
neninternen Befehlsmarken. 


@ REM VERTIKAL.SCR —- RUNTER 

28 GRAPHICS 8 

38 A=FEEK(S6Q) +PEEK (561) 8256 

408 BL=PEEEF (128) :BH=PEEK (129 

„@ FOR X=@ TO 1098 

&8 EBL=RBL-48: IF BL{B THEN BL=EL+256:BH=BH-1:FOKE A+S, 


78 FOKE At+r4,BL 

88 FOR Z=B TO SQB:NEXT Z 
78 NEXT X 

188 GRAPHICS 9:LIST :END 


2.3.4 Horizontales Scrollen 


Zum horizontalen Scrollen wird die Adresse für den Bild- 
schirmspeicher nicht zeilenweise, sondern spaltenweise weiter- 
geschoben. Ändern Sie daher im vorhergehenden Programm Zeile 
60: 

&9 BL=BL+1:IF BL>=256 THEN BL=BL-256: EH=EBH+1:FOKE A+ 
3,BEH 


Nach RUN (RETURN) rollt der Bildschirm um 200 Spalten nach 
links. Ändern Sie zum Scrollen nach rechts folgende Zeilen: 


429 BL=FEEK (68892) : BH=PEEK (6Q0B1) 
&08 BL=BL-1:IF BL{i® THEN BL=BL+256: EH=BH-1:FORE ArS,E 
H 


Diese Prinzipien zum horizontalen Scrollen sind für alle 
Grafikbetriebsarten identisch. Sie können sich also vom RAMTOP 
aus einen beliebigen Speicherbereich reservieren (so wie in 
den bisherigen Programmen oft gezeigt) und in die freien 
Speicherstellen Grafikpunkte oder Texte einPOKEn. Mit Hilfe 
der hier gezeigten Display-Manipulationen verändern Sie dann 
den Zeiger auf den Bildschirmspeicher, so daß die Grafiken auf 
dem Bildschirm vorüberrollen. 
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2.4 Player als Cursor 


Die meisten Matrixdrucker bieten die Möglichkeit, selbstdefi- 
nierte Zeichen auszudrucken. Hierzu muß man, ähnlich wie bei 
den Zeichen des Computers, ein Punktmuster entwerfen. Bei den 
Druckermodellen "star radix 10" und "EPSON FX-80" steht dafür 
eine Matrix von 7 mal 11 Punkten zur Verfügung. Andere Model- 
le bieten 7 mal 9 Punkte o.ä. 


So attraktiv, wie selbstdefinierte Druckerzeichen aussehen, SO 
mühsam ist das Entwerfen auf Papier. Mit dem folgenden 
ENTWURF-Programm können Sie sich die Arbeit erleichtern: Auf 
dem Bildschirm erscheint ein Entwurfsraster und ein Player, 
der hier die Funktion eines Cursors übernimmt. Durch Joy- 
stick-Steuerung lassen sich Punkte setzen oder löschen. Auf 
Tastendruck werden die Dezimalwerte des Bitmusters ausge- 
rechnet; das entworfene Zeichen kann dann gespeichert oder 
gedruckt werden. Verschiedene Sonderfunktionen erklärt das 
Programm während des Ablaufs selbsttätig. 


Die vorliegende Version des ENTWURF-Programms ist auf den 
Drucker "star radix 10" abgestimmt. Falls Sie ein anderes 
Modell benutzen, müssen Sie nur wenige Zeilen umschreiben, um 
ein funktionsfähiges Utility zu erhalten (s. Erläuterungen zum 
Listing). 





O REM ENTWURF 

18a FOKE 1905,PEEK (186) -8:G6RAFHICS 8B:DIM VHF(Z1) „VRE$(2 
13 :VP=48:HF=547:?7? "MOMENT BITTE" 

zB FOKE 752,1:DIM DCE(11):DIM ZEF(1),X#(1) „YFt1):FOKE 
787,204:FOKE 719,146: ZD=13000 

20 GOSUB 1370:”? CHR#(1725) 

4B FRINT " entre 

Sa PRINT" I ı ı LI EEE 

&0 pP R 1 NT sı Keep performed 


782 FRINT " II EI pm 
min] FR I NT 7} re ep pen 


9@R FRINT " iz ı td 2" 
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198 FRINT " tt 





118 FRINT " Tee Veen Faae BaeE Bas Be Be Be BE Br g" 
128 FRINT " Pr 
1:8 FRINT ae ee Bee Be Be Ba ee ee Be Be 5 
148 FRINT " Fr 
158 FRINT " I er ae 
1&8 FRINT " tt 
1/B FRINT " ee Bere re Bee Be Be Be Be en Bee Ba Sy 5 
188 FRINT " nn nnd 


1990 FOSITION 2Z7,17:7 "V=Vertikal" 

2808 FOSITION 27,18:7 "H=Horızont" 

z18 FOSITION 2Z7,19:? "N=Neu (leer)" 

z20 FOSITION 2,22:? "Dezımalwerte = SELECT"; 

58 J=STICE (DD :K=-STRIG (BD) :O>=FEER (764) 

240 IF J=7 AND HPZ22408 THEN HF=HF+8:SOUND 8,209,19,8 
=258 IF J=11 AND HF>8 THEN HF=HF-8:50UND 8,28,10,8 
260 IF J=14 AND VF>8 THEN VF=VF-1:X=USR(VH,PQO+VP):CGO 
TO 2:80 

=7B IF J=12 AND VF<248 THEN PORKE FO+VF,0: VP=VP+1:X=U 
SR(VR,FO+VF):GOTO 2380 

288 IF EK=B THEN SOUND 8,8,8,12:G0SUB 11490:G0SUB 1328 
>88 IF O=16& THEN GOSUR 1149:6G0SUR 748 

„18 IF 0=880 THEN GOSUE 1149:G0O5SUR 758 

>20 IF 0=57 AND HF=67 THEN GOSUR 1149:6G0SUB 768 

228 IF 0=57 AND HF=75 THEN GOSUR 1148:G0OSUR 778 

>48 IF O=121 AND HP=57 THEN GOSUB 11498:6G05SUR 788 

50 IF O=121 AND HF=75 THEN GOSUR 1149:G0SUR 798 

>68 IF 0=35 THEN GOSUR 808 

=7/B IF FEEE(522797)=5 THEN FOSITION 2,22:”7 "Moment bi 
tte."„,:GOSUR 4288: REM 5S=SELECT 

288 FOHE 52248,HF 

>97B FOR Z=8B TO ZB:NEXT Z:SOUND 8,9,02,8:G0T0 2308 

40809 FOR OFT=1 TO 11:DE(COFT)=QB:NEXT OFT:SF=5:FOR OFT= 
1 T0 11 

4108 ZAE=B:FOR L=2 TO 16 STEF 2Z:LOCATE SF,L,W 

428 IF W=2B THEN DE (OFT)I=DCECOFTI + CZTZAE) 

42:8 ZAE=ZAE+I1:NEXT L 

4490 SF=5SF+2:NEXT OFT 

458 FOSITION Z,ZB:FOR OFT=1 TO 11:7 DECOFT);",„"3:NEX 
TOFT:? „s.;- 

468 FOSITION 2,22:? "Weiterarbeiten = OPTION" 

470 FOSITION 2,23:7 "Drucken = START Speichern = 5" 
480 IF FEEE(5327N>=6 THEN GOSUR 320 

498 IF FEEK(S53279)=2 THEN FOSITION 2,22:7 CHR#(157): 
? "Dezimalwerte = SELECT",:RETURN 

sa@ IF FEEH(764)=62 THEN GOSUR 828 
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512 GOTD 488 

528 LFRINT CHR$ (27) 5; "A" 5 CHR$ (6) ;CHR$ (27); "M";CHRF (9) 
538 LPRINT CHR$ (27); "B"3CHR$ (5) 5; CHR$ (27); "B";CHR$ (2) 
548 OFEN #1,8,0,"P:" 

S5@ FOR FY=1 TO 16 

S6B FOR FX=4 TOD 29:L0CATE FX,FY,W 

572 IF W=1 THEN W=244 

S8Q IF W=3 THEN W=247 

57@ IF W=4 THEN W=249 

02 IF W=5 THEN W=242 

612 IF W=17 THEN W=240 

628 IF W=18 THEN W=241 

622 IF W=19 THEN W=258 

648 IF W=23 THEN W=243 

&65Q IF W=24 THEN W=248 

662 IF W=26 THEN W=246 

672 IF W=124 THEN W=245 

680 IF W=2Q THEN W=174 

672 FUT #1,W 

780 NEXT FX:FUT #1,155:NEXT FY 

712 LFRINT CHR$(27) 5; "A"SCHRE (12) 

728 LPRINT "Dezimalwerte: ";DE(1)5",";DE(D5;","5DE(3 
ER 

720 LFRINT DE(4)3","5DE(5)5","5DE(6)5",";DE(7);",":D 
C(89;",";DE(N;",";DE(1W;",";DE(11):CLOSE #1:RETURN 


748 FOR L=FY TO 2 STEF -2:FOSITION PX,L:? CHR&(20):5 
OUND 8,1L,10,8:NEXT L:FOEE 764, 255:RETURN 

758 FOR L=FY TOD 2 STEF -Z:FOSITION PX,L:? " "SOUND 
2,L,12,8:NEXT L:FOEE 764,255: RETURN 

7608 FOR L=FX TO 25 STEF 4:FOSITION L,FY:” CHR£(20):5 
OUND @,1L,180,8:NEXT L:FOKE 764,255: RETURN 

778 FOR L=FX TO 23 STEF 4:FOSITION L,FY=? CHRE£(28):8 
OUND 8,1L,18,8:NEXT L:FOKE 764,255:RETURN 


788 FOR L=FX TOD 25 STEF 4:FOSITION L,PY:? " ":SOUND 
Q0,L,12,8:NEXT L:POKE 764,255: RETURN 
798 FOR L=FX TO 23 STEF 4:FOSITION L,FY:? " ":SOUND 


2,1,18,8:NEXT L:FOHEE 764,255:RETURN 

8 FOKE 764,259 
830 FOSITION Z,Z2:FOR V=1 TO 2:7 CHRE(156);:NEXT V 
848 FOSITION 2,290:7 "Welches Zeichen soll",:FOSITION 
z2,21:? "ersetzt werden ";:INFUT ZE# 
858 FOSITION Z,28:FOR V=1 TOD 3:7 CHRE£(156) ;:NEXT V 
B&öB FOSITION 2,28:7 "Welche Froportion":FOSITION Z,2 
1:7? "(Werte 1 bis 11) ";:INFUT PR 
878 ZD=ZD+ASC (ZE#):FOSITION 2,21:7 ZD;" DATA 27,42,1 
„";ASCEIZEF),",„"sFR;","; 
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882 FOR OFT=1 TO 18:7? DE(OFT);"„";:NEXT OFT:? DEC(11) 

8978 ” "CONT'"3;:FOSITION 2,19 

9BB FOKE 842,13 

910 END 

928 FOKE 842,12 

938 FOSITION 2,19:FOR V=1 TO 3:7? CHR$(156)5;:NEXT V:P 

DOSITION 2,80:? CHR#(1537) 

948 FOSITION 2,28:7 "Drucken = D":? "Weiterarbeiten 

= OPTION 

958 IF FEEK(764)=58 THEN GOSUB 988. 

968 IF FEEK(53279)=23 THEN FOSITION 2,19:FOR V=1 TOD 4 

7? CHR#$(157):NEXT V:RUN 

778 GOTO 758 

988 LPRINT CHRF(Z7) 5, "@";CHR$ (27) 5; "B"SCHR&$ (5) ; CHR$ (27 

) zsCHRF (42); CHRF (DO) 

799B FOHRE An #1,8,8,"P:2":TRAP 1218 

1808 FOSITION 2,28:7 "Moment...Ich lese Daten.":” CH 

R+(156) :READ D: PUT #1,D:GOTO 19080 

1818 CLOSE #1:POSITION 2,28:7 "Alles drucken (J/N) 
"27? CHR# (156) 

1828 IF FEEH(764)=1 THEN FOKE 764,255:60T0 11898 

1838 IF FEEK(764)=35 THEN FOKE 764,255:G0T0 10508 

1848 GOTO 1928 

1858 FOSITION 2,28:?7 "Welches Zeichen soll gedruckt" 

:7” "werden"3:INFUT ZE# 

18682 LFRINT CHR#$ (27) ; CHRE (36) ;s CHR$ (1) 

1078 LPRINT ZE#E 

108880 LFRINT CHR$ (27) ; CHR$ (36) s CHR$ (8) 

10708 RUN 

1108 POSITION 2,28:? "Zeichen von",„,„:INPUT X$:”? "bis 

"„=INPUT Y#$ 

1118 LFRINT CHR$ (27) ; CHR$ (36) ;sCHR#$ (1) 

11298 FOR V=ASC(XF) TO ASC(Y$):LFRINT CHRF(V)=NEXT V 

1158 LPRINT CHR$ (27) ;s CHR$ (S6) ;sCHRFE (B) :RUN 

11498 REM 

11508 IF HP=67 THEN PX=5 

1168 IF HF=75 THEN FX=7 

117/B IF HP=83 THEN FX=?7 

11808 IF HF=91 THEN FX=11 

1198 IF HF=997 THEN PX=135 

12088 IF HF=1987 THEN FX=15 

z18 IF HP=115 THEN FX=17 

1228 IF HF=123 THEN PX=19 

2538 IF HP=131 THEN FX=2Z1 

124Q8 IF HF=13597 THEN FX=253 

1258 IF HP=147 THEN FX=25 

1260 IF VPS58 THEN FY=2:RETURN 
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1278 
12880 
1298 
1520 
1518 
1528 
15350 
1548 
1558 
1360 
1370 
1588 
15978 


VP<66 THEN PY=4:RETURN 
VP<82 THEN FY=6: RETURN 

VP<98 THEN PY=8:RETURN 

VP<114 THEN PY=1Q9: RETURN 

VP<13@ THEN PY=12:RETURN 

VF<146 THEN PY=14:RETURN 

LOCATE PX,PY,PZ 

IF PZ=28 THEN POSITION PX,PY:? " " 

IF PZ=32 THEN POSITION FX,PY:? CHR$(2D) 

RETURN 

REM PM-TABELLE 

POKE 54279 ,PEEK (186) : PMT=FEEK (106) #256 

FOR L=PMT+1824 TO PMT+1279:POKE L,@:NEXT L:P@=P 


MT+1024 


1400 
1 

1418 
1420 
1438 
1440 
1458 


1460 
1470 
1480 
1498 
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FORKE 5599,58: FOKE 53277,2:POKE 784,286: POKE 625, 


FOR L=8 TO 7:READ D:POKE F@+L_+VP,D:NEXT L 

DATA 8,132,132,132,152,132,132,252 

VH=ADR (VH$) 2: VR=ADR (VR$) 

FOR L=VH TO VH+2ZB:READ D:FOKE L,D:NEXT L 

FOR L=VR TOD VR+2B:READ D:FOKE L,D:NEXT L:RETURN 


DATA 104,104,133,204,104,133,203,160,1,177 

DATA 283,136,145,203,200,2008,192,17,208,245,96 
DATA 184,104,133,204,104,133,2@3,160,16,177 
DATA 283,2090,145,283,136,156,192,255,208,245,96 


10: Für Player-Missile-Grafik mit einzeiliger Auflösung wer- 
den acht "Seiten" vom RAMTOP aus reserviert. VP und HP sind 
die Variablen für. die Vertikal- und Horizontalposition des 
Players. 

20: Mit POKE 752,1 wird der Textcursor unsichtbar (normal = 
0). Die indizierte Variable DC(x) wird für die Dezimalwerte 
der definierten Zeichen benötigt. 

30: Im Unterprogramm ab Zeile 1370 wird die Player-Missile- 
Tabelle aufgebaut. 

40 bis 180: Die PRINT-Anweisungen für das Entwurfsraster. Die 
Zeichen erreichen Sie durch Drücken von CONTROL+Q, CONTROL+W 
usw. (s. Anleitungsbuch zum ATARI). Falls Sie einen Matrix- 
drucker benutzen, der nicht über 7 mal 11 Nadelpunkte verfügt, 
müssen Sie das Raster hier entsprechend ändern. 

190: Durch Drücken von V können Sie eine Bitreihe vertikal mit 
Punkten füllen. Drücken Sie SHIFT+V, wird die Reihe wieder 
gelöscht. 

200: Wenn Sie H drücken, füllt sich. eine Entwurfsreihe 
horizontal mit Punkten, jedoch nur, wenn sich der Player in 
der ersten oder zweiten Spalte befindet. Durch Drücken von 
SHIFT+H können Sie die Reihe horizontal wieder löschen. 

210: Mit der Taste N werden alle bisher gesetzten Punkte ge- 
löscht; Sie erhalten also ein neues Entwurfsfeld. 

220: Wenn Sie die Konsolentaste SELECT drücken, werden die 
Dezimalwerte des entworfenen Zeichens auf dem Bildschirm 
ausgegeben. Sie können danach das Zeichen speichern oder zur 
Eingabe zurückkehren. 

230: Die Abfrage des Joysticks und des Tastaturregisters 764. 
240 bis 270: Je nach Bewegung des Steuerknüppels bewegt sich 
der Player auf dem Bildschirm. Dazu ertönt ein akustisches 
Signal. 

280: Wenn der Knopf gedrückt wird, lokalisiert der Rechner im 
Unterprogramm ab Zeile 1140, an welcher Stelle sich der Player 
befindet und ordnet den Variablen PX und PY die damit 
korrespondierende Bildschirmposition zu. An dieser Position 
wird dann entweder ein Punkt gesetzt oder gelöscht, je nach- 
dem, was sich dort befindet. 

300 bis 370: Die Tastaturfunktionen für vertikales und hori- 
zontales Füllen oder Löschen der anvisierten Reihe bzw. 
Spalte. Die Werte, die je nach Tastendruck in Adresse 764 re- 
gistriert werden, entnehmen Sie der Tabelle im Anhang. 

380: Die aktuelle Horizontalposition des Players wird ge- 
POKEt. 

400 bis 440: In dieses Unterprogramm springt der Rechner, SOo- 
bald Sie SELECT drücken. Durch die FOR...NEXT-Schleife werden 
zunächst die Bildschirmpunkte des Entwurfsfeldes lokalisiert 
und anschließend die Dezimalwerte des Zeichens ausgerechnet. 


65 


Im Gegensatz zu den Bitmustern für Player oder ATARI-Zeichen 
sind die Bits bei Druckern vertikal angeordnet. Die Dezimal- 
werte werden also nicht durch Zusammenzählen von links nach 
rechts, sondern von oben nach unten ausgerechnet. Allerdings 
gibt es hier auch Unterschiede: Bei einigen Druckermodellen 
ist das höherwertige Bit oben, bei anderen unten. Schauen Sie 
deshalb in der Anleitung zu Ihrem Drucker nach, falls Sie 
keinen "star radix 10" benutzen; ggf. müssen Sie die 
FOR...NEXT-Schleife von 2 TO 16 STEP 2 ändern in 16 TO 2 STEP 
-2. Der Rechenvorgang in Zeile 420 bleibt erhalten. 

450: Die Dezimalwerte werden auf dem Bildschirm ausgegeben. 
460 bis 510: Sie können nun entscheiden, ob Sie weiter- 
arbeiten, das Zeichen speichern oder den Entwurf ausdrucken 
wollen. 

520 bis 730: In dieses Unterprogramm springt der Rechner, um 
den Entwurf auszudrucken. Die Druckeranweisungen für den "EP- 
SON FX-80" entnehmen Sie den Listing-Ergänzungen am Ende die- 
ses Kommentars. 

740 bis 810: Hier werden die Sonderfunktionen wie "Reihe 
vertikal füllen" ausgeführt. Der Rechner lokalisiert dabei 
jeweils die Position des Players und setzt oder löscht von da 
an die Punkte. | 

820 bis 970: Wenn Sie die Option "Zeichen speichern" wählen, 
wird in diesem Unterprogramm gefragt, um welches Zeichen es 
sich handelt. Danach müssen Sie die Porportion des Zeichens 
eingeben (falls Sie keine Proportionalschrift verwenden, ge- 
ben Sie hier immer die Zahl 11 ein). Durch eine automatische 
RETURN-Funktion wird anschließend eine DATA-Zeile mit den De- 
zimalwerten des Zeichens generiert. 

980 bis 1130: Sobald ein Entwurf gespeichert ist, können Sie 
dieses Zeichen oder auch einen kompletten Zeichensatz aus- 
drucken lassen. Der Aufruf eines selbstdefinierten Zeichen- 
satzes (Download Character-Set) ist bei jedem Drucker ver- 
schieden. Schauen Sie daher in Ihre Bedienungsanleitung und 
ersetzen Sie die CHR$-Codes in den Zeilen 980, 1060 und 1080 
durch die für Sie zutreffenden Werte. 

1140 bis 1320: Sobald während des Entwerfens der Feuerknopf 
gedrückt wird, springt der Rechner in dieses Unterprogramm und 
lokalisiert, an welcher Bildschirmposition der Player steht. 
Für die Vertikalposition wurden dabei Toleranzen von -2 bis +2 
gegeben; d.h. der Punkt wird auch gesetzt, wenn Sie die 
betreffende Bildschimposition nur "ungefähr" ansteuern. 

1330 bis 1360: Falls sich an der angesteuerten Position ein 
Punkt befindet, wird er gelöscht; falls sich eine Leerstelle 
dort befindet, wird ein Punkt gesetzt. 

1370 bis 1490: Die Player-Missile-Tabelle mit dem Maschi- 
nenspracheprogramm zur Steuerung der Vertikalbewegungen des 
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Players, so wie im ersten Kapitel des Buches erklärt. 


Listing-Ergänzung zum Ausdruck des Entwurfsfeldes mit "EPSON 
FX-80" (die Zeilen 580 bis 680 müssen gelöscht werden): 


=2@ LPRINT =:LFRINT CHR$ (27) 3 "A"3CHR$ (6) 3 CHRSZTI E "1" 
: CHR$ (9) 

S3@ LFRINT CHR&$ (27) ; CHR$ (15) 

540 OPEN #1,8,0,"P:" 

SS5@ FOR PY=2 TO 14 STEP 2 

S4B FOR FX=5 TO 25 STEF 2:LOCATE PX,PY,W 

570 IF W=2@ THEN W=42 

690 PUT #1,W 

788 NEXT FXzPUT #1,155:NEXT PY 

718 LPRINT CHR& (27) 3; "A"3CHR$ (12) ;CHR$ (18) 


Beispiel für den Ausdruck eines Entwurfsfeldes mit "star ra- 
dix-10" 





HENRONDEEEIEE: 

BEIDE: 

4 

= 

16 

64 
Dezimalwerte: 168,0,124, Dezimalwerte: 0,54,65, 
2,17,0,17,0,127,0,127 64,63,64,97,64,9,96, 22 


Beispiel für den Ausdruck eines Entwurfsfeldes mit "EPSON FX- 
80 u 


+34 ver r4 
tr 4 u 
+4 x + 
+ + ++ # 
#4 Pu Ge 
DE De | 4 #8 
ae ze ei vr 
Dezimalwerte: 0,29,54, Dezimalwertöa: 1,0,127, 
72,54,65,0,65,0,77,0 0,127,0,25,0,55,54,28 


Beim Entwerfen müssen Sie eine Besonderheit beachten: Direkt 
nebeneinanderliegende Punkte dürfen nicht gesetzt werden. Dies 
würde vom Drucker ignoriert. Die Darstellung auf der folgenden 
Seite verdeutlicht, was gemeint ist: 


6/ 





erlaubt 





nicht erlaubt 


Beispiel für einen selbstdefinierten Zeichensatz. 


4 EG 


Und hier die 


12067 
QO 
120648 
28 
12067 
‚797 
12078 
18071 
18072 
12073 
10974 
1 
12075 
65 
12076 
& 
10877 
127 
12078 
7 
12079 
62 
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DEFOG 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA 


HIJKELMBMMOFGDGESTUUNKTE 


dazugehörenden DATA-Zeilen: 


27,42,1,64,11,0,28,34,73,28,65,28,65,18,7 
27,42,1,65,11,16,8,124,2,17,8,17,80,127,0, 
27,42,1,66,11,0,64,63,64,63,64,7,64,9,86, 
27,42,1,67,11,8,8,28,34,93,34,65,8,65,80,9 
27,42,1,68,11,1,8,127,8,127,0,65,0,65,34, 
27,42,1,69,11,65,8,127,82,127,8,73,20,65,8 


27,42,1,78,11,1,8,127,8,127,0,9,20,1,0,3 
27,42,1,71,11,2,0,28,34,93,34,65,0,73,0,1 


27,42,1,72,11,8,8,127,8,127,2,8,0,9,8, 
27,42,1,732,11,8,2,8,127,8,127,0,1,0,0, 
27,42,1,74,11,0,24,32,64,0,64,63,64,63 


127 
oO 

‚2, 
27,42,1,75,11,1,8,127,0,127,0,28,34,65,0, 
27,42,1,76,11,1,8,127,0,127,2,64,0,64,0,7 
27,42,1,77,11,127,0,127,8,2,12,0,172,86,1, 
27,42,1,78,11,1,0,127,0,127,2,2,4,24,8,12 


27,42,1,79,11,8,28,34,93,34,65,0,65,8,65, 


10088 DATA 27,42,1,80,11,1,8,127,8,127,8,17,8,17,10, 
10081 DATA 27,42,1,81,11,0,28,34,93,34,65,16,65,112, 
10082 DATA 27,42,1,82,11,1,8,127,8,127,8,17,8,113,10 


10083 DATA 27,42,1,83,11,0,0,70,9,78,9,68,9,84,41,16 
12084 DATA 27,42,1,84,11,2,1,8,127,0,127,0,3,8,3,8 

100885 DATA 77,42,1,85,11,1,8,63,8,127,0,64,0,64,8,63 
10084 DATA 27,42,1,86,11,1,8,31,32,31,96,0,64,32,31, 


10087 DATA 27,42,1,87,11,127,8,127,0,32,16,8,16,33,6 
10088 DATA 277,42,1,88,11,1,64,53,18,5,10,20,40,82,33 


10087 DATA 27,42,1,89,11,8,3,4,3,124,8,124,3,4,3,0 
10090 DATA 27,42,1,90,11,0,0,77,16,185,20,75,4,99,0, 


2.5 Player als Textzeichen 


Über zusammengefügte Player, die ein Spielobjekt (Raumschiff, 
Fahrzeug etc.) ergeben, wurde im Abschnitt 1.6.4 bereits ge- 
schrieben. Diese "Technik" kann jedoch auch für Schriftzei- 
chen oder Grafiksymbole genutz werden. Sie erhalten damit 
mehrfarbige Zeichen in beliebiger Höhe. Durch die Möglichkeit 
zur doppelten oder vierfachen Breite können Sie weitere Dar- 
stellungsformen auf dem Bildschirm nutzen. Als Einsatzberei- 
che bieten sich z.B. Grafikbetriebsarten an, die über keinen 
Textmodus verfügen (GRAPHICS 9 bis 11). 


7 BE m 182 
_ EENEEEEE 0 
_ NONE 65 
_ u 65 
_ u 65 
_ _ 65 
_ u 65 
_ u 65 
| | 65 
| m 65 
_ | 65 
| | 65 
u | 65 
| | 128/191) 67/127 
HENENER BE | 62 





Player 0 | Player 1 Player 2 Player 3 
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Das folgende Anwendungsbeispiel läßt das Wort "MENÜ" in nor- 
maler, doppelter und vierfacher Breite erscheinen: 


Q@ REM PLAYER ALS TEXTZEICHEN 
ı1@ POKE 186,FEEK(186) -8 

2®8 GRAPHICS 5 

30 ? "MOMENT BITTE" 

4B8 POKE 54279,FPEEK (196) 

=Q0 FMT=FEEK (106) #256 

&8 FOR L=PMT+19024 TD FMT+2848 

78 FOKE L,® 

BO NEXT L 

98 PO=PMT+1924 

100 F1=P@+256 

110 P2=P1+256 

120 P3=P2+256 

138 FOR L=@ TO 14:READ D:FOKE PO+L+5@,D:NEXT L 
148 FOR L=@ TO 14:READ D:FOKE Pi+L+59,D:NEXT L 
158 FOR L=@ TO 14:READ D:FOKE P2+L+5@,D:NEXT L 
160 FOR L=@ TO 14:READ D:FOKE F3+L+59,D:NEXT L 
178 POKE 559,6? 

180 POKE 53277,2 

198 FOKE 794,118 

za0@ POKE 795,118 

218 FOKE 706,118 

220 FOKE 797,110 

230 POKE 673,1 

240 ? CHR$(125) 

>50 POKE 53248,64 

268 POKE 53249,72 

278 POKE 532598,88 

780 POKE 53251,88 

298 FOR L=@ TO SBG:NEXT L 

3280 REM DOPPELTE BREITE 

318 FOKE 53748,64 

328 FOKE 53749,808 

378 POKE 53750,96 

348 POKE 53251,112 

35@ POKE 53256,1 

360 POKE 53257,1 

378 FOKE 53258,1 

388 POKE 53259,1 

378 FOR L=@B TO SOQ:NEXT L 

400 REM VIERFACHE BREITE 

410 POKE 53248,64 

428 FOKE 53249,96 
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438 FOKE 53250,128 

440 FOKE 53251,160 

4508 POKE 53256,3 

460 POKE 53257,3 

478 FOKE 53258,3 

480 FOKE 57259,2 

490 FOR L=Q TO SBQG:NEXT L 

Sa0 FOKE 532564,08 

510 POKE 53257,8 

52@ FOKE 537258,08 

5290 POKE 53259,0 

548 GOTO 258 

55Q8 DATA 128,193,227,182,156,136,1?8,1728,178,178,178 
‚128,128,128,128 

560 DATA 191,191,160,160,160,190,190,160,160,160D,160 
‚160@,160,191,191 

578 DATA 65,97,97,113,81,81,89,73,77,69,69,71,67,67, 
65 

580 DATA 54,0,65,65,65,65,65,65,65,65,65,65,65,127,6 


a 
Fa 


10: Vom RAMTOP aus werden acht "Seiten" für Player-Missile- 
Grafik mit einzeiliger Auflösung reserviert. 

40 bis 120: Aufbau der PM-Tabelle und Festlegung der Anfangs- 
adressen für die einzelnen Player innerhalb der Tabelle. 

140 bis 160: Die Dezimalwerte für die Textzeichen werden in 
die Player-Adressen gePOKEt. 

190 bis 220: Festlegung der Farbwerte für die Player. 

250 bis 280: Bei normaler Breite liegen die Horizontalposi- 
tionen der Player jeweils 8 Spalten auseinander. 

310 bis 340: Zur Darstellung der Zeichen in doppelter Breite 
müssen die Horizontalpositionen der Player 16 Spalten ausein- 
ander liegen. 

350 bis 380: Die Register zur Festlegung der Breite werden auf 
doppelte Breite geschaltet. 

410 bis 440: Sollen die Textzeichen in vierfacher Breite er- 
scheinen (sie nehmen dann fast die gesamte Bildschirmbreite 
ein), müssen die Horizontalpositionen 32 Spalten auseinander 
liegen. 

500 bis 530: Die Register zur Festlegung der Breite werden 
wieder auf Null gesetzt (normale Breite). 

540: Rücksprung zur Zeile 250. Sie können das Programm durch 
Drücken von RESET unterbrechen. 


Nun ist es allerdings ziemlich mühsam, beim Entwerfen solcher 
Zeichen jedesmal die Dezimalwerte der vier Player auszurech- 
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nen. Falls Sie also Player öfters für Text oder Grafiksymbole 
einsetzen wollen, wird das folgende Listing für Sie nützlich 
sein: In der hochauflösenden Grafikbetriebsart / erscheint ein 
Raster von 32 mal 15 Feldern, (für vier Player mit je 15 
Zeilen Höhe). Mit Hilfe eines Joysticks (Port 1) können Sie 
alle gewünschten Textzeichen oder Symbole entwerfen. Auf 
Tastendruck erscheinen dann die Player mit dem entworfenen 
Muster, so daß Sie ständig die optische Wirkung in Original- 
größe überprüfen können. Durch weiteren Tastendruck werden die 
Dezimalwerte für die Player ausgegeben und das Programm 
beendet. 


BB REM PLAYER ALS ZEICHEN -— ENTWURFSRASTER 

10 FOKE 186,PEEK(186)-8:GRAPHICS 7 

28 DIM D8(14),D1(14) ,D2(14) „D3t14) :HX=11:HY=47:VX=8: 
vY=i 

>38 GOSUB 648 

48 SETCOLOR 4,8,4:SETCOLOR 8,8,12:SETCOLOR 1,8,12:SE 
TCOLOR 2,2,4 | 

358 COLOR 1:POKE 752,1 

68 FOR L=8 TO 45 STEP 3:PLOT 1B8,L:DRAWTO 19864,L:NEXT 

LI 

78 FOR L=18 TO 186 STEP 3:PLOT L,8:DRAWTO L,45:NEXT 

L 

8a ? "OPTION = Player ein/aus” 

98 ?” "SELECT = Dezimalwerte" 

100 ?” "START = Neu" 

118 J=STICK (8) :K=STRIG (BB) : O=PEEK (53279) 

128 IF J=7 AND HX<183 THEN GDOSUB 2208: HX=HX+3 

158 IF J=11 AND HX>11 THEN GOSUB 2298: HX=HX-3 

14B IF J=135 AND VY<42 THEN GOSUB 229: VY=VY+3 

158 IF J=14 AND VY>2 THEN GOSUB 220: VY=VY-3 

168 IF K=B THEN GOSUB 230 

178 IF 0=3 THEN GOSUB 760: GOSUB 288 

188 IF 0=5 THEN ? CHR$ (125); "MOMENT BITTE"3:GOSUB 76 
B:GOSUB 3898:G60T0 548 

198 IF O=6& THEN GRAFHICS 7:GOTO 48 

288 COLOR 2:PLOT HX,HY:PLOT VX,VY 

z1iB FOR L=8 TO 2B:NEXT L:SOUND 8,0,8,0:6G0T0 118 

228 COLOR @:PLOT HX,HY:FPLOT VX,VY:SOUND 8,10,12,&4:RE 
TURN 

230 LOCATE HX,VY,A:SOUND 8,190,8,18 

248 IF A=8 THEN C=1i 

258 IF A=1 THEN C=8 

268 COLOR C:PLOT HX,VY=:PLOT HX+1,VY:PLOT HX,VY+1:PLO 
T HX+1,VY+1 

278 RETURN 
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280 REM PLAYER ANSEHEN 

290 SOUND @,122,18,4:SOUND 1,97,18,4:IF H=188 THEN H 
=08:60T0 360 

300 GOSUB 388 

3180 FOR L=® TO 14:POKE P@+L+158,DB(L):NEXT L 

320 FOR L=® TO 14:POKE Pi1+L+158,Di1(L):NEXT L 

33@ FOR L=@ TO 14:POKE P2+L+150,D2(L):NEXT L 

348 FOR L=@ TO 14:POKE P3+L+150,D3(L):NEXT L 

350 IF H=@ THEN H=188 

368 FOKE 53248,H:POKE 53249 ,H+8:POKE 53259 ,H+1&6: POKE 
53251 ,H+24 

378 SOUND 8,0,0,8:SOUND 1,8,8,@: RETURN 

380 REM DEZIMALWERTE 

398 X=@:FOR M=1 TO 43 STEP 3:Z=7:FOR L=11 TO 32 STEP 
3 

408 LOCATE L,M,A 

410 IF A=1 THEN DAO(X)=DA(X)+(2*Z) 

420 Z=Z-1:NEXT L:X=X+1:NEXT M 

438 X=®:FOR M=1 TO 43 STEP 3:Z=7:FOR L=35 TO 564 STEP 
3 

448 LOCATE L,M,A 

450 IF A=1 THEN D1(X)=Di1(X)+(2*Z) 

468 Z=Z-1:NEXT L:X=X+1:NEXT M 

470 X=8:FOR M=1 TO 43 STEP 3:Z=7:FOR L=59 TO 88 STEP 
3 

488 LOCATE L,M,A 

498 IF A=1 THEN D2(X)=D2(X)+(2*Z) 

SQ Z=Z-1:NEXT L:X=X+1:NEXT M 

S1@ X=@8:FOR M=1 TO 43 STEP 3:Z=7:FOR L=83 TO 184 STE 
P3 

528 LOCATE L,M,A 

S3@ IF A=1 THEN D3(X)=D3(X)+(2Z) 

540 Z=Z-1:NEXT L:X=X+1:NEXT M 

S5Q@ RETURN 

560 GRAPHICS ® 

570 ? :? :? "PLAYER @ = "; 

580 FOR L=@ TO 14:? DOtL)5;",„"s:NEXT L 

598 ? :? 2? "PLAYER 1 = "; 

608 FOR L=® TO 14:? Di(L);","s:NEXT L 

610 ? :? :? "PLAYER 2 = "; 

628 FOR L=B TO 14:? D2(L);5","3:NEXT L 

630 ? :? :? "PLAYER 3 = "; 

648 FOR L=8 TO 14:? D3(L);","5:NEXT L 

6508 END 

660 REM PM-TABELLE 

670 FOKE 54279,PEEK(186):”7 "MOMENT BITTE" 

&80 PMT=PEEK (106) #256 
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870 FOR L=PMT+1824 TO FMT+2048 

ea FOKE L,@=:NEXT L | 

718 PO=FMT+1024: P1=F8+256: P2=P1+256: P3=P2+256 
728 FOKE 357,38 

738 FOKE 53277,2 

740 FOKE 784,254:FOKE 705,254: POKE 786,254: FDEE 727 
254 

752 ? CHR$(125) 

768 FOR L=@ TO 14:DRtiL)=B=:NEXT LI 

778 FOR L=B TO 14:D1(L)=Q:NEXT L 

80 FOR L=@ TO 14:DZ{L)=B=NEXT L 

798 FOR L=B TO 14:DItL)3=B:NEXT L 

sag RETURN 


10: Für die Player, die während des Programms eingeblendet 
werden können, wird einzeilige Auflösung gewählt. Falls Sie 
Ihre Zeichen in der gröberen Zweizeilen-Auflösung darstellen 
wollen, genügen vier reservierte "Seiten". Außerdem müssen Sie 
die Player- -Missile-Tabelle ändern (s. Erläuterungen im |]. 
Kapitel für zweizeilige Auflösung). 

20: Für die Dezimalwerte der Player werden vier Variablen mit 
je 15 Elementen DIMensioniert. 

40: Die Farben für Hintergrund, Textfenster, Entwurfsraster 
und die beiden Randcursor. 

80 bis 100: Schreiben Sie kursiv erscheinende Wörter zum bes- 
seren Erkennen invertiert (ATARI-Taste). 

Fr Me des Joysticks und der Konsolentasten (OPTION 
USW.). 

120 bis 150: Je nach Joystick-Bewegung verändern sich die Po- 
sitionen des horizontalen und vertikalen Cursors. 

160: Sobald der Feuerknopf gedrückt wird, springt der Rechner 
ins Unterprogramm 230. Befindet sich an der angesteuerten 
Bildschirmposition ein Punkt, wird er gelöscht; im anderen 
Fall erscheint ein Punkt. 

170: Wenn Sie OPTION drücken, werden im Unterprogramm ab Zei- 
le 280 die aktuellen Dezimalwerte in die Player-Register 
gePOKEt. Danach erscheinen die Player auf dem Bildschirm. Wenn 
Sie erneut OPTION drücken, verschwinden die Player wieder und 
Sie können mit Ihrer Arbeit fortfahren. 

180: Durch Drücken von SELECT wird das Programm beendet. Auf 
dem Bildschirm erscheinen die Dezimalwerte der einzelnen 
Player. 

190: Mit der Taste START a das gesamte Entwurfsfeld ge- 
löscht, so daß Sie neue Zeichen entwerfen können. 

200: Die Randcursor erscheinen an den aktuellen Positionen. 
220: Bevor ein Cursor an neuer Position erscheinen kann, muß 
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die Darstellung an der alten Position gelöscht werden. Dies 
wird hier in Zeile 220 vorgenommen. 

230 bis 270: Setzen oder Löschen eines Grafikpunktes bei Be- 
tätigung des Feuerknopfes. 

290: Da das Einlesen der Daten für die Player einige Sekunden 
dauert, ertönt zunachst ein Akkord, der deutlich macht, daß 
der Computer arbeitet. 

310 bis 340: Die im Unterprogramm ab Zeile 380 ausgerechneten 
Dezimalwerte werden in die Player-Register gePOKEt. 

360: Im Abstand von acht Spalten erscheinen die vier Player 
nebeneinander (normale Breite). Falls Sie in Ihren Programmen 
Textzeichen lieber in doppelter oder vierfacher Breite dar- 
stellen wollen, müssen Sie die Player im Abstand von 16 bzw. 
32 Spalten auf den Bildschirm bringen. 

390 bis 550: Hier werden die Dezimalwerte für die Player aus- 
gerechnet. 

560 bis 650: Sobald Sie die Taste SELECT drücken, erscheinen 
die aktuellen Dezimalwerte für die Player auf dem Bildschirm, 
und das Programm wird beendet. Sie können die Zahlen durch 
eine LPRINT-Anweisung natürlich auch vom Drucker ausgeben 
lassen. 

660 bis 740: Aufbau der PM-Tabelle, so wie im 1. Kapitel des 
Buches bereits erklärt. 

760 bis 790: Zu Beginn des Programms und bei Änderungen der 
entworfenen Zeichen werden die indizierten Variablen auf Null 
gesetzt, da sonst möglicherweise die alten Werte die 
Bildschirmausgabe durcheinander bringen. 
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3. Kapitel 


Utilities 


3 Utilities 


Falls Sie durch dieses Buch angeregt wurden, eigene Player- 
Objekte zu entwerfen, werden Sie festgestellt haben, daß der 
Entwurf und das Ausrechnen der Dezimalwerte relativ aufwendig 
ist: Man muß ein Raster zeichnen, ggf. mit dem Radiergummi 
Fehlentwürfe löschen usw. Was liegt da näher, als ein Pro- 
gramm zu entwickeln, mit dem sich Player besonders komforta- 
bel kreieren lassen? - In diesem Kapitel wird Ihnen solch ein 
Utility geboten. 


Ein anderes Problem, das immer wieder auftritt, ist die Farb- 
wahl für Player und Bildschirmgrafik. Immerhin bieten die 
ATARI-Computer 256 verschiedene Farben. Wenn Sie z.B. vier 
Farbregister für den Hintergrund und weitere vier für die 
Player wählen wollen, können Sie nur durch mühsames Probieren 
die Wirkung der einzelnen Farbkombinationen überprüfen. Als 
zweites Utility-Programm finden Sie daher ein "Testbild", bei 
dem Sie durch Drücken verschiedener Tasten sämtliche Farben 
aufrufen können. Auf weiteren Knopfdruck werden Ihnen dann die 
Dezimalwerte bzw. SETCOLOR-Angaben gezeigt. 


3.1 Player-Missile-Editor 


Mit dem folgenden Player-Missile-Editor können Sie bequem mit 
einem Joystick Ihr gewünschtes Bitmuster entwerfen, beliebig 
verändern oder ganz löschen. Viele Sonderfunktionen, wie das 
Ausfüllen einer ganzen Reihe oder das Invertieren des ent- 
worfenen Objektes, bringen weitere Arbeitserleichterungen. 


Bedienung des Player-Missile-Editors 


Joystick an Port 1: 
Steuerung der Randcursor am Entwurfsraster 
durch Rechts/Linksbewegung 


Einzelnen Punkt im Entwurfsraster setzen: 
Feuerknopf drücken 


Gesetzten Punkt wieder löschen: 
Feuerknopf drücken 


= gesamtes Raster füllen 
= gesamtes Raster löschen 
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entworfenes Objekt invertieren 
Invertierung rückgängig machen 

eine gesamte Bitreihe horizontal setzen 
eine gesamte Bitreihe horizontal löschen 
eine gesamte Bitreihe vertikal setzen 
eine gesamte Bitreihe vertikal löschen 


o<DTzCQ- 
nu u N u 


OPTION = Dezimalwerte für ein Objekt speichern 
SELECT = Entwurf als Datei sichern 


1. Speichern Sie das Programm vor dem ersten Durchlauf im 
LIST- oder SAVE-Format auf Diskette oder Kassette. Die Dezi- 
malwerte für die entworfenen Objekte werden später im Speicher 
des Rechners verwaltet und würden bei Sicherung des Programms 
unnötig Sektoren belegen. 


2. Auf dem Bildschirm erscheint ein Entwurfsraster von 10*8 
Feldern und zwei Koordinatenkreuze, die durch den Joystick 
bewegt werden. Wenn Sie an einer bestimmten Stelle einen Punkt 
setzen wollen, drücken Sie den Feuerknopf. Auf die gleiche 
Weise können Sie einen Punkt auch wieder löschen. 


3. Alle Sonderfunktionen sind neben dem Entwurfsraster aufge- 
listet. In der Praxis haben sie sich als besonders nützlich 
herausgestellt. Wenn Sie z.B. sieben Punkte in einer Reihe 
setzen wollen, müssen Sie nicht siebenmal den Feuerknopf 
drücken, sondern füllen die betreffende Reihe durch Drücken 
von H und löschen den nichtgewünschten achten Punkt. 


4. Mit OPTION sichern Sie die Daten eines entworfenen 
Objektes. 


5. Mit SELECT werden die Daten aller von Ihnen entworfenen 
Player automatisch als Datei auf Diskette gespeichert. Falls 
Sie einen Datenrecorder benutzen, müssen Sie lediglich einen 
einzelnen Befehl ändern (Zeile 2030). 


A REM FLAYER-MISSILE EDITOR 

i@ DIM DW{P) ,ZF(t12),NFt14): ZN=10200 

=8 GRAFHICS B:FOKE 729,224: FOEE 719,146: FOKE 757,1:”7 
CHRFLI1EI) 

Sa FX=Z:FY=1:FOSITION FX,FY 

42 FOR X=8 TO 16:READ D:” CHRF{ID)IS: NEXT X 

sa FY=FY+1:FOSITION FX,FY 

Ss FOR Y=1 TO 9 

2 FÜR X=8 TO 15:READ D:”7 CHRFEID);:NEXT X 
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890 FY=FY+1:FOSITION FX,FY 
78 FOR X=B TOD 16:READ D:”? CHR$(DI 5; :NEXT X 
RESTORE K21Q: FY=FY+1:FOSITION FX,PY=NEXT 


100 
118 
128 
158 
142 
150 
168 
170 
188 
170 
200 
218 
2280 
2350 
240 
zu 
zb 
278 
280 
270 
>00 
318 
320 
>52 
>40 
Kte’;) 
360 
>78 
378 
4a0 
418 


42B IF J=12 AND HY<1? THEN POSITION HX,HY:”? " 


FOSITION 


PX,PY 


FOR X=B TO 16: READ D:? CHR${D)z, NEXT X 
RESTORE s848: FY=FY+1:POSITION FX,PY 
FOR xX=B TO 1&6:READ D:” CHR#{DIS;:NEXT X 
HX=1: HY=28: VX=3:VY=22 


FOSITIDN 
FOSITION 
FOSITION 
FOSITION 
POSITION 


‚POSITION 


FOSITION 
POSITION 
FOSITION 
FOSITION 
POSITION 
POSITION 
FOSITION 
POSITION 


HX,HY:”? CHR$(19 
VX,VY:7? CHR#(19 
22,1:? "F Raster fuellen"; 


22,2:? "L Raster loeschen"; 
22,4:7? "I Invers ein"; 
#2,0:7 "J Invers aus"; 
22,7:? "H horizontal voll"; 
z22,8:7 "G horizontal leer"; 
22,18:?7 "V vertikal voll"; 
22,11:7 "BZ vertikal leer"; 
22,13:? "OPTION Flayer"; 
22,14:? sichern"; 
22,16:?7 "SELECT Datei"; 
22,17:? ” sichern"; 


T=PEEK (764) : I=STICK (®) :K=STRIG (®) 
IF T=56 THEN GOSUR 1200 

IF T=B THEN GOSUR 1188 

IF T=12 OR T=1 THEN GOSUR 1288 
IF 1T=57 THEN GOSUB 15800 


IF T=61 


THEN GOSUR 16980 


IF T=16& THEN GOSUB 1708 
IF T=21 THEN GOSUR 1898 
IF FEER(53527P9)=3 THEN 12300 


IF FPEEK( 


35279)=5 THEN 28008 


IF J=14 AND HY>Z THEN FOSITION HX,HY:=:”7 " 
Y-2:POSITIDN HX,HY=:7? CHR#(19) 


HY+2:POSITION HX,HY:”? CHR$ (19) 

438 IF J=7 AND VX<17 THEN POSITION VX,VY:? " 
X+2:POSITION VX,VY:? CHR$(19) 

448 IF J=11 AND VX>3 THEN POSITION VX,VY:? " 
X-2:FOSITION VX,VY:? CHR#(19) 

458 IF K=@ THEN GOSUB 1900 

4608 IF J<>15 THEN SOUND 0,79,19,8 

478 FOR X=@ TO 1B:NEXT X:5DUND 98,2,0,8:G60T0 388 
13800 REM Raster fuellen 


1B1B PX=3:P 


— 17 
u 


1828 FOR Y=2 TO 14 STEP 2 
12358 FOR X=8 TO 18 STEF 2 


Y 


"2:HY=H 
"sahHY= 
"a2VX=V 


"aaVX=V 


8l 


1248 
1050 
1108 
1112 
1128 
1138 
1140 
1152 
1224 
1218 
2208 
1230 
1240 
1250 
1240 
1270 
1300 
1518 
1315 
$ 
1328 


FOSITION FX+Y,FY+X:”7 CHR$(1&0) 
NEXT X:NEXT Y:FOKE 764,255: RETURN 
REM Raster loeschen 
Fi=3:PY=Z 

FOR Y=B TO 14 STEF 
FÜR X=B TOD 18 STEF 2 

FOSITION FX+Y,„FY+X:7 CHR# (32) 

NEXT X:NEXT Y:FOKE 764,255: RETURN 

REM Invers ein und aus 

PX=3:FY=2 

FOR Y=9 TO 14 STEF 2 

FOR X=2 TO 18 STEF Z 

LOCATE FX+Y,FY+X,CH 

IF CH=32 THEN FOSITION FX+Y,PY+X:”7 CHR$#(16®8) 
IF CH=1648 THEN FOSITION FX+Y,FY+X:7 CHRF (22) 
NEXT X:NEXT Y:FOKE 764,255: RETURN 
REM Zeichen sichern 

FOR Y=B TO 9:DWi(Y)=B:NEXT Y 

FOSITION 3,28:7 "Flayer 8,1,Z2 oder > 


7 
Ei 


"ss INPUT Z 


FOSITION 8,21:”? "Ein Moment Geduld bitte"; :CH=A 


SsctZ#) 


1 25 
1332 
1335 


"ZAE) 


1540 
1345 
1358 
13030 
1350 
1365 
1372 
15379 
1382 
1502 
1518 
1920 


DZ=ZN+CH: PX=3: PY=Z 
FOR Y=B TO 9: ZAE=QB:FOR X=14 TO 8 STEF 
LOCATE FX+X,FY,„CH: IF CH=15&88 THEN DWEY=SDWIND +(Z 


-2 


ZAE=ZAE+1:NEXT X:PY=FY+2:NEXT Y 
FOSITION 2,21:7 CHR#(1563;DZ;," DATA "; 
FOR Y=B TOD 8:7? DW(Y)s", "2 NEXT Y:? DW 
?” "CONT";:FOSITION 2,17 

FOEE 842,13 

END 

FOKE 842,12 

FOSITION 2,8:7 CHRE(157 

RESTORE :GOTDO 20 

REM horizontal voll 

FX=3:FY=HY 

FOR X=B TOD 14 STEF 2:POSITION FX+X,PY:”? CHR#{(16& 


B)ISNEXT X 


1538 
1620 
1618 
1620 


FOKE 764,255: RETURN 

REM horizontal leer 

FX=3:FY=HY 

FOR X=8 TO 14 STEF Z:FOSITION PX+X,PY:? CHR$(32 


I=NEXT X 


16:38 
1700 
1718 
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FOKE 764,255: RETURN 
REM vertikal voll 
FX=VX:PY=2 


1728 FOR X=B TO 18 STEP 2:FOSITION FX,FY+X:7 CHREFE{1& 
B>=:NEXT X 

175B FOEE 744,255: RETURN 

198880 REM vertikal leer 

1818 FX=VX:PY=2 

18228 FOR X=8 TO 18 STEF Z:FOSITION FX,PY+X:7? CHR#$(32 
3=:NEXT X 

1830 FOKE 764,255: RETURN 

17Q@0 REM Funkt setzen und loeschen 

1718 LOCATE YX,HY,CH 

19z28 IF CH=15B THEN FOSITION VX,HY:”7 CHR#(32):5DUND 
0,8,8,18 

1930 IF CH=3Z2 THEN POSITION VX,HY=:”? CHRF(t16B) : SDUND 
9,2,8,180 

17420 RETURN 

zZB00 REM Datei sichern 

2BiB FOSITION 2,28:7 "Eingabe Dateiname"; : INPUT Z# 
2220 FOSITION 98,21:”7 "Ein Moment Geduld bitte"; 

zZB3B N$="D: ":NFEH)I=ZH 

2u40 LIST N, 1200909, 110009 

258 RESTORE :60T0O 28 

sad DATA 17,18,23,198,23,18,23,18,22,18,23,15, 23,18, 
=3,18,9 

san DATA 124,32,124,32,124,32,124,22,124,532,124, 32, 
124,32,124,22,124 

5222 DATA 1,18,17,18,17,18,197,18,197,18,17,13,17,18,1 
7,18,4 

saz@ DATA 124,22,124,32,124,32,124,32,124,32,124,32, 
124,32,124,32,124 

&D4B DATA 28,18,24,19,24,18,24,15,24,18,24,18,24,18, 
24,18,2 
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10: DW ist eine indizierte Variable für die Dezimalwerte der 
entworfenen Objekte. ZN ist die Anfangszeilennummer, ab der 
die Dezimalwerte später in DATA-Zeilen gespeichert werden. 

30 bis 140: Hier wird das Entwurfsraster auf den Bildschirm 
gebracht. Es handelt sich dabei um die Grafikzeichen 17,18, 
19,23 usw. (s. DATA-Zeilen 6000 bis 6040), die durch Drücken 
von CONTROL+Taste aufgerufen werden können 

150: Die horizontalen und vertikalen Anfangspositionen für die 
Koordinatenkreuze, die vom Joystick gesteuert werden. 

180 bis 290: Die Menüfunktionen erscheinen auf dem Bild- 
schirm. Kursiv gelistete Buchstaben sollten Sie invertiert 
schreiben (ATARI-Taste drücken). 

300: Die Abfrage nach einer gedrückten Taste (Register 764), 
nach Joystickbewegungen und Feuerknopf. 

310 bis 380: In Register 764 wird der Tastaturcode für jede 
gedrückte Taste abgelegt. Dieser Code hat weder etwas mit 
ASCII noch mit dem internen Code zu tun (s. Tabelle im An- 
hang). Die Abfrage des Registers hat den großen Vorteil, daß 
der Rechner das Programm nicht unterbricht, wie es bei GET 
oder INPUT der Fall ist. 

390 und 400: Die Speicherstelle 53279 registriert, wenn eine 
der Tasten OPTION, SELECT, START oder diese Tasten kombiniert 
miteinander gedrückt werden. OPTION bringt den Wert 3, SELECT 
den Wert 5. 

410 bis 440: Bestimmung der Operationen, die je nach Joy- 
stickbewegung durchgeführt werden sollen. Wenn z.B. der 
Steuerknüppel nach vorn gedrückt wird, registriert STICK(0) 
eine 14. In diesem Fall soll das Koordinatenkreuz an der alten 
Position gelöscht werden und in der nächst höheren Reihe des 
Entwurfsrasters wieder erscheinen. 

450: Wenn der Feuerknopf gedrückt wird, springt der Rechner 
ins Unterprogramm 1900. 

460: Bei jeder Bewegung des Steuerknüppels entsteht ein Sound. 
470: Eine sog. Verzögerungsschleife, die verhindert, daß die 
Koordinatenkreuze bei Joystickbewegungen zu schnell über den 
Bildschirm sausen. 

1000 bis 1050: Das Unterprogramm zum Füllen des gesamten Ent- 
wurfrasters. Ein gesetzter Punkt erscheint als invertiertes 
Leerzeichen (ASCII-Code 160). 

1100 bis 1150: Hier wird das gesamte Raster gelöscht (Leer- 
zeichen mit ASCII-Code 32). 

1200 bis 1270: Um ein Objekt zu invertieren, muß jeder Punkt 
der Matrix mit dem LOCATE-Befehl abgefragt werden (Variable 
CH). Wenn CH=32 ist, also ein Leerzeichen, dann soll an der 
betreffenden Stelle ein Punkt gesetzt werden; wenn sich hin- 
gegen ein gesetzter Punkt dort befindet (CH=160), so wird er 
gelöscht. 
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1300 bis 1380: Das Unterprogramm zur Sicherung der Dezimal- 
werte eines entworfenen Objektes. In Zeile 1310 werden 
zunächst alte Werte der indizierten Variable DW(x) gelöscht. 
Danach müssen Sie eingeben, um welchen Player es sich handelt. 
Die Variable DZ in Zeile 1325 bestimmt die DATA-Zei- 
lennumer, in der die Dezimalwerte des entworfenen Objektes 
gespeichert werden. Die Grundzeilennummer ist 10000 (s. Zeile 
10). Zu dieser Zeilennummer werden der ASCII-Code der einge- 
gebenen Zahl (0,1,2 oder 3) gerechnet (z.B. bei 1=49). Die 
Daten werden dann in Zeile 10049 abgelegt. Der gesamte Vor- 
gang des Speicherns geschieht automatisch. Durch die Zuord- 
nung der DATA-Zeilen zu den Codezahlen erhalten Sie immer eine 
geordnete und übersichtliche Datei. Mit den Zeilen 1345 und 
1350 werden die Zeilennumer, das Wort "DATA" und die ein- 
zelnen Dezimalwerte auf den Bildschirm gebracht. Mit einer 
automatischen RETURN-Funktion wird die DATA-Zeile in den 
Speicher aufgenommen. Der Vorgang geschieht so schnell, daß Sie 
ihn kaum verfolgen können. Sie erhalten anschließend ein neues 
Entwurfsraster und können den nächsten Player gestalten. 


1500 bis 1830: In den Unterprogrammen 1000 bis 1150 wird das 
gesamte Entwurfsraster mit Punkten gefüllt bzw. gelöscht. Hier 
in den Zeilen 1500 bis 1830 werden diese Funktionen für 
einzelne Reihen horizontal bzw. vertikal durchgeführt. 

1900 bis 1940: Um einen Zeichenpunkt (Bit) zu setzen oder zu 
löschen, muß beim anvisierten Matrixpunkt mit dem LOCATE- 
Befehl ermittelt werden, ob sich dort ein Leerzeichen oder ein 
Punkt befindet. Genau wie beim Invertieren wird dann ein Punkt 
gesetzt oder gelöscht. 

2000 bis 2050: Da die DATA-Zeilen für die entworfenen Player 
bereits existieren, müssen zur Sicherung einer Datei nur die 
in Frage kommenden Zeilennummern im LIST-Format zur Disketten- 
station übertragen werden. Wenn Sie einen Datenrecorder be- 
nutzen, ändern Sie die Variable N$ Zeile 2030 von "D:" in 
N 

6000 bis 6040: Die CHR$-Codes für das Entwurfsraster. 
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3.2 TESTBILD 


Wie bereits erwähnt, können Sie mit Ihrem ATARI insgesamt 256 
verschiedene Farbtöne darstellen. (Und wer die Wahl hat, hat 
die Qual.) Der Spruch ist zwar nicht mehr ganz frisch, aber 
zutreffend. Denn das Austüfteln, welche Farben in einem Pro- 
gramm zueinander passen, kostet viel Zeit. Ständig muß man die 
SETCOLOR- und COLOR-Werte ändern und von neuem starten. 


Damit Sie künftig auf bequeme Weise Ihre Farbwahl für Player- 
Missile- und Hintergrundgrafik treffen können, finden Sie 
nachfolgend ein nützliches Utility. Hierbei erscheint auf dem 
Bildschirm ein Testbild, bei dem sich alle Farbfelder berüh- 
ren, und eine Texteinblendung. Daneben erscheinen noch alle 
vier Player. Durch Tastendruck können Sie jedes einzelne 
Farbregister verändern und die Helligkeit bestimmen. Auf 
Wunsch werden die dazugehörenden SETCOLOR- und COLOR-Werte 
sowie die Dezimalwerte für der Farbregister der Player einge- 
blendet. Danach können Sie, falls Sie es wünschen, mit Ihren 
Kreationen fortfahren. 


Bedienung von TESTBILD 


1. Starten Sie mit RUN (RETURN). Durch Drücken der Tasten 
1,2,3 und 4 ändern Sie die Farben der SETCOLOR-Register 0,1,2 
und 4. Wenn Sie SHIFT + 1,2,3 oder 4 drücken, ändern Sie die 
Helligkeit der Farben. Durch Drücken von Q,W,E und R erhöhen 
sich die Dezimalwerte in den Farbregistern der Player. 


2. Wenn Sie sich zwischendurch oder nach Abschluß Ihrer Farb- 
wahl die betreffenden Werte ansehen wollen, drücken Sie die 
Leertaste. Um ins Testbild-Programm zurückzukehren, drücken 
Sie erneut die Leertaste. 


@ REM TESTBILD 

if FOKE 106,PEEK (196) -4:5RAFPHICS 3:7 "MOMENT BITTE": 
GOSUB 10@0:? CHRF (125) 

20 SB=9:51=1:57=?: 54=4:H9=5:H1=6:H?=2:H4=6 

=8 SETCOLOR 8,50,H92:SETCOLOR 1,51,H1:SETCOLOR 2,52,H 
2:SETCOLOR 4,54,H4 

428 COLOR i1:PLOT 19,9:DRAWTO 19,8:DRAWTO B,2Q:FOKE 765 
‚1:FOSITION 8,9:XID 18,86,0,0,"8:" 

S@ COLOR 2:FLOT 39,9:DRAWTO 39,8: DRAWTO 29,8: FOKE 76 
S5,2:FOSITION 20,9:XI0 18,#6,0,0,"5:" 

69 COLOR S:PLOT 19,19:DRAWTO 19,18: DRAWTD 8,12: FOKE 

765,3:FOSITION 8,19:XIO 18,#64,8,0,"5:" 
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/a 
mi] 
‚7 
7a 
1& 


COLOR 
COLOR 


COLOR 


A:FLOT 
SsFLOT 


2:PLOT 


182 COLOR 1:FLOT 


D 
112 
120 
132 
140 
150 
168 
170 
100 
178 
228 
Zi 
211 
ziz 
213 
214 


222 


H2:SETCOLOR 4,54,H4 


240 
FF3 
25@ 
380 
318 


nm 
—L 


>50 

1)" 
>42 

23" 
Sl 
R 2) 
Sog 
RK 2) 
S6l 
SZ 


27,16 


28,12: DRAWTO 


28,4: DRAWTO 


28,9: PLOT 


28,16: PLOT 


FOKE 752,1:CLOSE #1:0PEN #1,4,8,"K:" 
TESTER 


IF 
IF 


IF 


a2 u 
a. 


F=47 
F=-58 
F=51 
F=5Z 
F=33 
F=24 
F=35 
F=:6 
F=81 


F=87 
F=69 
F=82 


F=32 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


TEXT 
GET #1,F 


UND 


S5B-S@+1:1IF 
S1i=-S1+1:1Ir 


S=52+1: IF 


S4=54+1: IF 
HB=HA+2: IF 
Hi=H1+2: IF 
HZ=H2+2: IF 
H4=H4+2: IF 
FPO=FFO+2: 
FPi=FFi1+2: 
FP2=FP2+2: 


>a2 


52:15 
51:19 
52:15 
54>15 
H2R>14 
H1>14 

2>14 
H4>14 


IF FF 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


IL D" 


sa=g 
s1=8 
S2= 

54=8 
HO=2 
H1=2 


H4=08 


8,4:DRAWTO 8,9:FPLOT 9,4:DRAWTD 9,9 
29,4:DRAWTO 29 


8,1B:DRAWTO 8,16:FLOT 9,18:DRAWTO 9, 


29,12: DRAWT 


>254 THEN FF@=B 


IF FF1>254 THEN FFi=8 


IF FFZ2>254 THEN FFZ=8 
FF=Z=FF3+2:1IF FFS+ 
GOTO 


254 THEN FF3=8 


SETCOLOR 2,58,H9@:5SETCOLOR 1,51,H1:SETCOLOR 2,52, 


FOKE 784,FF@:FOKE 705,FP1:FPOKE 78&4,FP2:POKE 707, 


GOTO 138 
GRAFHICS 


FOKE 718,174: FOEE 752,1:FOKE 


FOSITION 
POSITION 


FOSITION 


POSITION 


FOSITION 
FOSITION 
FOSITION 


> FOSITION 


FOSITION 
GET #1,F 
IF F=32 


GOTO 378 


2 


53277,8 


4,4:7” "Farbwerte:" 

‚:? "SETCOLOR 9,";52;",":;H9B;" (COLOR 
4,9:7? "SETCOLOR 1,";513",";H1;" (COLOR 
4,11:?7 "SETCOLOR 2,";552;",";H2;" 2 (CDLO 
4,1 "SETCOLOR 4,"354:",";H4;" (COLO 
4,15:? "Player BB, Register 784",",";,FF@ 
4,17:7 "Flayer 1, Register 785",;,",";FP1 
4,19:? "Flayer Z, Register 7/B6",",";FFZ 
4,21:7 "Player 3, Register 7@07",",";FP3 


THEN GRÄAFHIECS . 


> 


:RESTORE :GOSUB 1959:60T0 
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1000 FOKE 54277,FEEK(196) 

1818 PMT=FEEK (106) #754: HF=59: VF=908: FPQO=2: FFi=2: FF7=2 
:FF3=2 

1828 FOR L=PMT+384 TO PMT+19824 

10328 POKE L,ZB=:NEXT L 

1840 FO=FMT+512:Fi=FO+128: F2=P1+128:F3=FPz2+128 


1250 
1068 
1970 
1280 
1290 
1108 
111® 
„FP& 
1120 
1130 
1140 
1150 
5 

1160 
5 

1170 


FOR L=8 TO 9:READ D:FOKE FO+L+VFP,DENEXT L 
FOR L=8B TO 9:READ D:FOHKE Fi+L+VF,D=2NEXT L 
FOR L=8 TO 9:READ D:FOKE FZ+L+VF,D:NEXT L 
FOR L=8B TO 9:READ D:POKE F3+L+VFP,D=:NEXT L 


FORE 
FOKE 
FORE 


FOKE 
POKE 


559 ,42:FOKE 623, 
53277,2 
784,FP@:POKE 795,FP1:FOKE 706,FP2:POKE 707 


53248,HP:FORKE 53249,HP+48 
33258 ,HPF+B88: FOKE 33251, HF+1280 


RETURN 


DATA 


DATA 


DATA 


255,259, 259, 295,29 


255,255,255, 


255,255, 255,255, 2595, 299, 299, 299 209 200, 20 
” | 

1198 
an) 


2 
hJ 
[N 
[n 
D | 
hJ 
[n 
un 
hJ 
un 


DATA 


255 , 255 ‚255 , 255, 255,255,255,25 


zweizeilige Player-Missile-Grafik werden vom RAMTOP 
reserviert. Das Testbildes wird in GRAPHICS 3 


10: Für 
aus 4 "Seiten" 
dargestellt. 
20: Die Anfangswerte der einzelnen Farbregister 
keitsstufen. 

40 bis 100: Das Testbild wird auf den Bildschirm gebracht. 
Dabei berühren sich alle Farbfelder. Der XI0-Befehl bewirkt 
das Ausfüllen einer Fläche. Dieses praktische Kommando er- 
spart das zeilenweise PLOTten, das normalerweise zum Ausfül- 
len einer Fläche notwendig wäre. 

110: 752,1 macht den Cursor unsichtbar. Der OPEN-Befehl 
net den Datenkanal zur Tastatur. 

130 bis 220: Je nach gedrückter Taste (1,2,3,4 und SHIFT + 1, 
2,3,4 oder Q,W,E,R) wird der Wert für das betreffende Farb- 
register oder die Helligkeitsstufe erhöht. 

nn Die aktuellen Farbwerte werden auf dem Bildschirm darge- 
stellt. 

300: In dieses Unterprogramm springt der Rechner, wenn Sie die 
Leertaste drücken. Sie können sich dadurch die aktuellen 
Farbwerte auflisten lassen. 


und Hellig- 


öff- 
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370 bis 390: Durch erneutes Drücken der Leertaste gelangen Sie 
wieder zum Testbild. 

1000 bis 1180: Aufbau der Player-Missile-Tabelle, so wie im 
ersten Kapitel des Buches ausführlich beschrieben. 


89 


Anhang 








Player-Missile Entwurfsraster (zum Fotokopieren) 
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TASTATUR-CODE 


gedrückte Taste(n) gedrückte Taste(n) 
EEE 


[= 
y 
T 
w 
a 
4 





In der Adresse 764 wird die zuletzt gedrückte Taste im Tastatur-Code erfaßt. 
Der Tastatur-Code ist eine 6-Bit-Inforsation (Dezinalwerte von 0 bis 63). Wird 
zusaaaen mit einer Taste SHIFT gedrückt, wird Bit 6 (dezimal 64) gesetzt. Das 
Drücken von CONTROL setzt Bit 7 (dezimal 128). 
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IT nit. rt 


” 
al 
r 
+ 
= 
wi 
i 
u. m 
he 
E 
L 
- 
+ 
+ 
* 
‘} 


TASTATUR-Code 


HaEnnmminin 


VEN AARNKBEN 
BMA NA ELLE DD EIER 


SW Arm 


CONTROL+ATARI 
RETURN 
DELETE 


% 


"Ian 


NER EEE FEN I IE Erin 


INSERT 


CLEAR 


CONTROL +TAB 
SHIFT+TAB. 
CONTROL+2 (BEL) 
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ZEICHENSATZ 


pP 
0 
R 
3 
T 
u 
u 
H 
H 
Ye 
£. 
L[ 
E 
3 
PN 


"oa raneu #]| 


Erin Is wma Jg An MR 


u. 





NEON  - OIO 
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a 
3 


y 
Fr 
Ri 
ui 
ni 
“1 
Fi 
u 
ei 
r 
“ 
di 
= 
au 
2 
na 
r 
= 
& 


sure 


EEE 


DBSBIBSEBAHSBEBEEE 


“ 
1 


fi 


IEENMNADZDEENE 


I 3 
Ri 


[ 


EnkuWanE 


BESBEDSEBRBOBEN 


Ian G 


T 


Ze ET 0 


pam 
Is 


Hin 


HE AREN 


pen 
kb. 


SRASBREEERMTUBRR 
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Soundeffekte machen Computerspiele 
perfekt. Aber wie soll man aus Hunderten 
von Frequenzen und sieben Verzerrungs- 
graden den «richtigen» Sound für 
bestimmte Programme finden? Das unter- 
haltsam geschriebene Buch vermittelt für 
Anfänger und Fortgeschrittene leicht 
verständlich, wie Töne und Effekte aus 
allen Programmbereichen erzielt werden 
können. In einem zweiten Teil beschreibt 
der Autor, wıe Sıe Ihren Computer in eine 
Orgel verwandeln und Rhythmuseffekte 
erzeugen können. Insgesamt ein gross- 
artiges Buch für alle, die sich für Sound und 
Musik interessieren und vom einfachen 
BASIC bis zur Direktprogrammierung ihren 
ATARI-Computer beherrschen wollen. 


Computer 


| Birkhäuser 

Karl-Heinz Koch 
Spiele programmieren 
Schritt für Schritt 





1984. 240 Seiten, Broschur. 
ISBN 3-7643-1659-4 


Das Buch führt Schritt für Schritt in das 
Programmieren in BASIC ein. Dabei 
werden schon mit den ersten einfachen 
Befehlen faszinierende Grafikeffekte erzielt. 
So werden die Befehle und ihre Wirkung 
optisch erfahrbar gemacht. Auf Verständ- 
lichkeit wird besonderer Wert gelegt, was 
für Bücher dieser Materie leider keine 
Selbstverständlichkeit ist. Und wann immer 
der Lerneifer nachlässt, kann eines der 
vielen Spielprogramme für Entspannung 
sorgen. 





Birkhäuser 
Basel Boston : Stuttgart 


